<%@LANGUAGE="VBSCRIPT"%> <% Dim RS_recipe__MMColParam RS_recipe__MMColParam = "1" if (Request.QueryString("rec_id") <> "") then RS_recipe__MMColParam = Request.QueryString("rec_id") %> <% Dim RS_recipe Dim RS_recipe_cmd Dim RS_recipe_numRows Set RS_recipe_cmd = Server.CreateObject ("ADODB.Command") RS_recipe_cmd.ActiveConnection = MM_onions_usa_STRING RS_recipe_cmd.CommandText = "SELECT * FROM dbo.NOA_recipes WHERE rec_id = ?" RS_recipe_cmd.Prepared = true RS_recipe_cmd.Parameters.Append RS_recipe_cmd.CreateParameter("param1", 5, 1, -1, RS_recipe__MMColParam) ' adDouble Set RS_recipe = RS_recipe_cmd.Execute RS_recipe_numRows = 0 %> Onion Exporters

Foodservice Onion Recipes

<%=(RS_recipe.Fields.Item("rec_name").Value)%>
  <% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (RS_recipe.Fields.Item("rec_ingred").Value) <> "" Then%>

Ingredients:
 <% ' *** UDnewbie.com Extension *** ' *** 104: Replace Carriage Returns *** Response.Write Replace(RS_recipe.Fields.Item("rec_ingred").Value, chr(13), "
") %>

<%End IF%>

Directions:
 <% ' *** UDnewbie.com Extension *** ' *** 104: Replace Carriage Returns *** Response.Write Replace(RS_recipe.Fields.Item("rec_directions").Value, chr(13), "
") %>

<% ' *** Hide If Empty *** ' *** RobGT Server Behaviour 103 - By RobGT - www.robgt.com *** IF (RS_recipe.Fields.Item("rec_nutrition").Value) <> "" Then%>

Nutrition Information:
 <% ' *** UDnewbie.com Extension *** ' *** 104: Replace Carriage Returns *** Response.Write Replace(RS_recipe.Fields.Item("rec_nutrition").Value, chr(13), "
") %>

<%End IF%>
© • 822 7th St. #510 • Greeley, CO 80631
970.353.5895 • Fax 970.353.5897 • Privacy Policy

National Onion Association

<% RS_recipe.Close() %>