<%@ Language=VBScript %>
Diabetic Recipes - Sugar Free Cooking - Helpful Cooking Tips - 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=sa;PWD=~crazy#6969;"
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
%>
