<%
Response.Buffer = true
Dim catid, strcat
catid = Request.QueryString("id")
strcat = Request.QueryString ("cat")
If catid = "" OR (IsNumeric(catid) = false) Then
Response.Redirect "default.asp"
End if
Dim catname, productslist
sub productInfo(connObj,category)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command")
cmd.ActiveConnection = connObj
cmd.CommandText = "qryProdsCategory"
cmd.CommandType = adCmdStoredProc
set param = cmd.CreateParameter("theCategory",adInteger,adParamInput,4)
cmd.Parameters.Append(param)
cmd("theCategory") = Cint(category)
set rs = server.CreateObject("ADODB.Recordset")
set rs = cmd.Execute
if not rs.EOF then
catname = rs("catdescription")
strHTML = "
"
strHTML = strHTML & "
"
i = 1
while not rs.EOF
'response.write ""& rs("cname") & ""
strHTML = strHTML & "
" & vbcrlf
if (i mod 1) = 0 then
strHTML = strHTML & "
" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend
strHTML = strHTML & "
"
else
strHTML = "Product information not found."
catname = "Error"
end if
productslist = strHTML
rs.Close
set rs = nothing
set cmd = nothing
end sub
%>
All Florida Tickets- Products
