<%@ Language=VBScript %>
Sugar Free Recipes at WebDiabetic.com
<%
'querystring details
catname = Request.QueryString("catname")
product = Request.QueryString("product")
product = UCase(product)
product = trim(product)
bybrand = Request.QueryString("bybrand")
'connect
set adoCon = Server.CreateObject("ADODB.Connection")
set adoRec = Server.CreateObject("ADODB.RecordSet")
strCon = "DSN=dbstores;UID=r;PWD=#nw;"
adoCon.Open strCon
'see if user came from one of the searches
marketing = Request.QueryString("search")
marketing = trim(marketing)
If marketing <> "" then
If Request.Cookies("dsstore")("marketing") = "" then
adoCon.Execute "INSERT INTO referrals (referral) VALUES ('" & marketing & "')"
Response.Cookies("dsstore")("marketing") = marketing
End If
End If
adoRec.Open "SELECT * FROM recipes WHERE itemcode='" & product & "'", adoCon, 1
'Response.Write adoRec.RecordCount
If adoRec.RecordCount < 1 then
Response.Redirect "listitems.asp"
End If
%>
Please Submit your favorite recipe here. If you created
it yourself, let us know. If it is from your favorite cookbook,
let us know the name of the cookbook and its author.
