<% '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%> <% myRs.MoveFirst %> <% myConn.Close %>
<% Do While not myRs.EOF If myRs.AbsolutePosition <= myRs.RecordCount / 2 Then %> " onmouseover = "doButtons(<%Response.Write "'" & myRs.Fields("recipe_image_sml") & "'"%>)" onmouseout = "doButtons(<%Response.Write "'images/blank.gif'"%>)"><%Response.Write myRs.Fields("recipe_name")%>
<% End If myRs.MoveNext Loop %>
<% Do While not myRs.EOF If myRs.AbsolutePosition > myRs.RecordCount / 2 Then %> " onmouseover = "doButtons(<%Response.Write "'" & myRs.Fields("recipe_image_sml") & "'"%>)" onmouseout = "doButtons(<%Response.Write "'images/blank.gif'"%>)"><%Response.Write myRs.Fields("recipe_name")%>
<% End If myRs.MoveNext Loop %>

Recipes

Copyright 2002 Native Treasures Inc.