<% option explicit Dim myConn Dim myRs Dim vDSN Dim varcode Dim sqlStr %> Recipes <% sqlStr = "Select * from Recipes where recipe_code = " & Request.QueryString("recipe_code") Set myConn = Server.CreateObject("ADODB.Connection") myConn.Open "NativeTreasures" Set myRs = Server.CreateObject("ADODB.Recordset") myRs.Open sqlStr, myConn, 3, 3 %>
 

<%Response.Write myRs.Fields("recipe_name")%>

Description

<% If myRs.Fields("recipe_image_sml") = "blank" Then %> <% Else %> " align="left" hspace="8"> <% End If %> <%Response.Write myRs.Fields("recipe_description")%>

Ingredients

<%Response.Write myRs.Fields("recipe_ingredients")%>

Method

<%Response.Write myRs.Fields("recipe_method")%>

Back to Recipes

Copyright 2002 Native Treasures Inc.