<%@LANGUAGE="VBSCRIPT"%> <% Dim RS_cats Dim RS_cats_cmd Dim RS_cats_numRows Set RS_cats_cmd = Server.CreateObject ("ADODB.Command") RS_cats_cmd.ActiveConnection = MM_onions_usa_STRING RS_cats_cmd.CommandText = "SELECT * FROM dbo.NOA_link_cats WHERE cat_active = 1 ORDER BY cat_sort ASC" RS_cats_cmd.Prepared = true Set RS_cats = RS_cats_cmd.Execute RS_cats_numRows = 0 %> <% Dim RS_links Dim RS_links_cmd Dim RS_links_numRows Set RS_links_cmd = Server.CreateObject ("ADODB.Command") RS_links_cmd.ActiveConnection = MM_onions_usa_STRING RS_links_cmd.CommandText = "SELECT * FROM dbo.NOA_links WHERE link_active = 1 ORDER BY link_title ASC" RS_links_cmd.Prepared = true Set RS_links = RS_links_cmd.Execute RS_links_numRows = 0 %> <% Dim rs_link_description__MMColParam rs_link_description__MMColParam = "1" If (Request.QueryString("link_id") <> "") Then rs_link_description__MMColParam = Request.QueryString("link_id") End If %> <% Dim rs_link_description Dim rs_link_description_cmd Dim rs_link_description_numRows Set rs_link_description_cmd = Server.CreateObject ("ADODB.Command") rs_link_description_cmd.ActiveConnection = MM_onions_usa_STRING rs_link_description_cmd.CommandText = "SELECT link_description, link_title, link_organic FROM dbo.NOA_links WHERE link_id = ?" rs_link_description_cmd.Prepared = true rs_link_description_cmd.Parameters.Append rs_link_description_cmd.CreateParameter("param1", 5, 1, -1, rs_link_description__MMColParam) ' adDouble Set rs_link_description = rs_link_description_cmd.Execute rs_link_description_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RS_cats_numRows = RS_cats_numRows + Repeat1__numRows %> Membership Links

Membership Links
This page is not a complete list of suppliers or companies. For a complete listing, please contact the National Onion Association at 970-353-5895, or send a request through email to info@onions-usa.org

 Click icon for link description
 Denotes Organic Supplier

<% While ((Repeat1__numRows <> 0) AND (NOT RS_cats.EOF)) %> <% FilterParam = RS_cats.Fields.Item("cat_id").Value RS_links.Filter = "link_cat = " & FilterParam If(NOT RS_links.EOF) Then %> <% End If %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 RS_cats.MoveNext() Wend %>
<%=(RS_cats.Fields.Item("cat_name").Value)%>
  <% While (NOT RS_links.EOF) %> " target="_blank"><%=(RS_links.Fields.Item("link_title").Value)%> <%If (RS_links.Fields.Item("link_description").Value) <> "" Then %>"> <% End If %><% If RS_links.Fields.Item("link_organic") = "True" Then %><% End If %>
<% RS_links.MoveNext() Wend %>

Home

<% If Not rs_link_description.EOF Or Not rs_link_description.BOF Then %>

Link Description:
<%=(rs_link_description.Fields.Item("link_title").Value)%> <% If rs_link_description.Fields.Item("link_organic") = "True" Then %><% End If %>

<%=(rs_link_description.Fields.Item("link_description").Value)%>

<% End If ' end Not rs_link_description.EOF Or NOT rs_link_description.BOF %>

© • 822 7th St. #510 • Greeley, CO 80631
970.353.5895 • Fax 970.353.5897 • Privacy Policy

National Onion Association

<% RS_cats.Close() %> <% RS_links.Close() %> <% rs_link_description.Close() Set rs_link_description = Nothing %>