<% 'Dim Cn 'Set Cn = Server.CreateObject("ADODB.Connection") 'Cn.Open "FILE NAME=D:\ASPConnections\SparkleMarket.udl" Dim Cn Set Cn = Server.CreateObject("ADODB.Connection") Cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Cst = Cst & Server.MapPath("recipe.mdb") 'response.write Cst Cn.mode = 3 Cn.open Cst %> Welcome to Sparkle Markets
Sparkle Market Home
Sparkle Market Locations Sparkle Markets History Sparkle Market Jobs Great Groceries Recipes Kids Clubhouse!
Great Groceries
Search for the recipe that you are looking for by selecting a recipe type, by date of show, or view all of the recipes by clicking 'Search for Recipes'

Recipe Type


Week of Show ,


 
  <% dim id id = Request.QueryString("ID") dim query if id = "" then id = 0 Dim rs Set rs = server.createobject("ADODB.recordset") query = "SELECT * FROM recipe WHERE ID = " & id rs.open query, Cn %>
<% Do While Not rs.EOF %>

<% response.write "Week of " & rs.Fields("Show").Value & "
" %> ','Print','width=750,scrollbars=yes,location=no,toolbar=no,directories=no,menubar=no')">Printer Friendly Version

<% response.write rs.Fields("Name").Value & "
" response.write "" %> <% response.write rs.Fields("Descrip").Value %>

<% response.write Replace(rs.Fields("Ing1").Value,vbCrlf,"
" & vbCrLf) %>

<% Dim nullCheck, emptyCheck Dim Ing2, Dir2 Ing2 = rs.Fields("Ing2").Value nullCheck = not isNull(Ing2) emptyCheck = not isEmpty(Ing2) if nullCheck and emptyCheck then response.write Replace(Ing2,vbCrlf,"
" & vbCrLf) end if %>

<% response.write Replace(rs.Fields("Dir1").Value,vbCrlf,"
" & vbCrLf) %>

<% Dir2 = rs.Fields("Dir2").Value nullCheck = not isNull(Dir2) emptyCheck = not isEmpty(Dir2) if nullCheck and emptyCheck then response.write Replace(Dir2,vbCrlf,"
" & vbCrLf) end if %>

<% Dim RecipeType, rt1, rt2, rt3, rt1n, rt1e, rt2n, rt2e, rt3n, rt3e, trt2, trt3 rt1 = rs.Fields("Type1").Value rt2 = rs.Fields("Type2").Value rt3 = rs.Fields("Type3").Value rt1n = not isNull(rt1) rt1e = not isEmpty(rt1) rt2n = not isNull(rt2) rt2e = not isEmpty(rt2) rt3n = not isNull(rt3) rt3e = not isEmpty(rt3) RecipeType = rt1 if rt2n and rt2e then trt2 = ", " & rt2 else trt2 = "" end if if rt3n and rt3e then trt3 = ", " & rt3 else trt3 = "" end if RecipeType = rt1 & trt2 & trt3 response.write "Recipe Type - " & RecipeType & "" rs.MoveNext Loop %>

 

 

 

 

 

 

 



<% rs.Close Set rs = Nothing Cn.Close Set Cn = NOthing %>