%@LANGUAGE="VBSCRIPT"%>
<%
Dim RS_press_consumer__MMColParam
RS_press_consumer__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then RS_press_consumer__MMColParam = Request("MM_EmptyValue")
%>
<%
Dim RS_press_consumer
Dim RS_press_consumer_cmd
Dim RS_press_consumer_numRows
Set RS_press_consumer_cmd = Server.CreateObject ("ADODB.Command")
RS_press_consumer_cmd.ActiveConnection = MM_onions_usa_STRING
RS_press_consumer_cmd.CommandText = "SELECT * FROM onions.NOA_list_press_cats WHERE pr_cat = ? AND pr_active = 1 ORDER BY pr_date ASC"
RS_press_consumer_cmd.Prepared = true
RS_press_consumer_cmd.Parameters.Append RS_press_consumer_cmd.CreateParameter("param1", 5, 1, -1, RS_press_consumer__MMColParam) ' adDouble
Set RS_press_consumer = RS_press_consumer_cmd.Execute
RS_press_consumer_numRows = 0
%>
<%
Dim RS_prss_foodservice__MMColParam
RS_prss_foodservice__MMColParam = "2"
if (Request("MM_EmptyValue") <> "") then RS_prss_foodservice__MMColParam = Request("MM_EmptyValue")
%>
<%
Dim RS_prss_foodservice
Dim RS_prss_foodservice_cmd
Dim RS_prss_foodservice_numRows
Set RS_prss_foodservice_cmd = Server.CreateObject ("ADODB.Command")
RS_prss_foodservice_cmd.ActiveConnection = MM_onions_usa_STRING
RS_prss_foodservice_cmd.CommandText = "SELECT * FROM onions.NOA_list_press_cats WHERE pr_cat = ? AND pr_active = 1 ORDER BY pr_date ASC"
RS_prss_foodservice_cmd.Prepared = true
RS_prss_foodservice_cmd.Parameters.Append RS_prss_foodservice_cmd.CreateParameter("param1", 5, 1, -1, RS_prss_foodservice__MMColParam) ' adDouble
Set RS_prss_foodservice = RS_prss_foodservice_cmd.Execute
RS_prss_foodservice_numRows = 0
%>
<%
Dim RS_press_news__MMColParam
RS_press_news__MMColParam = "3"
if (Request("MM_EmptyValue") <> "") then RS_press_news__MMColParam = Request("MM_EmptyValue")
%>
<%
Dim RS_press_news
Dim RS_press_news_cmd
Dim RS_press_news_numRows
Set RS_press_news_cmd = Server.CreateObject ("ADODB.Command")
RS_press_news_cmd.ActiveConnection = MM_onions_usa_STRING
RS_press_news_cmd.CommandText = "SELECT * FROM onions.NOA_list_press_cats WHERE pr_cat = ? AND pr_active = 1 ORDER BY pr_date DESC"
RS_press_news_cmd.Prepared = true
RS_press_news_cmd.Parameters.Append RS_press_news_cmd.CreateParameter("param1", 5, 1, -1, RS_press_news__MMColParam) ' adDouble
Set RS_press_news = RS_press_news_cmd.Execute
RS_press_news_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
RS_press_consumer_numRows = RS_press_consumer_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
RS_prss_foodservice_numRows = RS_prss_foodservice_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Repeat3__numRows = -1
Dim Repeat3__index
Repeat3__index = 0
RS_press_news_numRows = RS_press_news_numRows + Repeat3__numRows
%>
Media Center: Press
|
|
|
|
|
|
|
© • 822 7th St. #510 • Greeley, CO 80631
970.353.5895 • Fax 970.353.5897 • Privacy Policy
|
National Onion Association
|
|
<%
RS_press_consumer.Close()
%>
<%
RS_prss_foodservice.Close()
%>
<%
RS_press_news.Close()
%>