<%@LANGUAGE="VBSCRIPT"%> Welcome to Daylight Donuts! <% Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") oConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..") & "\access_db\donuts.mdb;" ' boolean to abort record edit MM_abortEdit = false MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = Request.QueryString ' query string to execute MM_editQuery = "SELECT * FROM Recipes WHERE " & MM_editAction MM_abortEdit = True else ' query string to execute MM_editQuery = "SELECT * FROM qryRecipes ORDER BY RecipeID ASC" End If %> <% 'response.Write(MM_editQuery) set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = oConn Recordset1.Source = MM_editQuery Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %>

Daylight Donuts

Recipes.

<% IF MM_abortEdit=False then%> <% END IF %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) if MM_abortEdit Then %> <% else %> <% end if Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>
 
 
 
800.331.2245