<%
'Last Modified:Nov-12-2002
'Developed by Antonio Beckles.
option explicit
Dim myConn 'Connection to Database
Dim myRs 'Recordset
Dim vDSN 'DataSource Name
Dim strSQL 'SQL Query String
Dim varSignup 'cookie variable to see if the user signed up for the mailing list
%>
<%
varSignup=Request.Cookies("signup")
'response.write("Signed up= " & varSignup)
%>
Recipes
<% If varSignup = "T" Then %>
<% Else %>
<%
End If
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "NativeTreasures"
' Create SQL Query
strSQL = "SELECT * FROM Recipes Order By recipe_name"
' Create and open ADO recordset
Set myRs = Server.CreateObject("ADODB.Recordset")
myRs.CursorLocation = 3 ' adUseClient
myRs.Open strSQL, myConn
%>
<%
If myRs.EOF Then
Response.Write "There are no Records in This Table"
Else
myRs.MoveFirst
End If%>
