Categories

<%set CN=server.CreateObject("ADODB.Connection") CN.Mode=adModeRead CN.Open "dsn=" & application("dbodbcdsn"),application("dbusername"),application("dbpassword") set RS=server.CreateObject("ADODB.Recordset") SQL="select * from IntCategories where Store='MDB' order by Teaser" RS.Open SQL,CN,adOpenForwardOnly,adLockReadOnly,adCmdText Response.Write("") eor=false do until RS.EOF if not eor then Response.Write("") else Response.Write("") end if eor=not eor RS.MoveNext loop if eor then Response.Write("") end if Response.Write ("

") Response.Write("") Response.Write(RS("Name")) Response.Write("

") Response.Write("
" & server.HTMLEncode(RS("Teaser"))) Response.Write("") Response.Write("

") Response.Write("") Response.Write(RS("Name")) Response.Write("

") Response.Write("
" & server.HTMLEncode(RS("Teaser"))) Response.Write("") Response.Write("

") Response.Write(" ") Response.Write("

") RS.Close set RS=nothing set CN=nothing%>

Million Dollar Bill <%set CN=server.CreateObject("ADODB.Connection") CN.Mode=adModeRead CN.Open "dsn=" & application("dbodbcdsn"),application("dbusername"),application("dbpassword") set RS=server.CreateObject("ADODB.Recordset") SQL="select * from IntCategories where ID=" & Request.QueryString("catid") RS.Open SQL,CN,adOpenForwardOnly,adLockReadOnly,adCmdText%>

<%=RS("Name")%>

<%=replace(server.HTMLEncode(RS("Description")),vbcrlf,"
")%>

<%catname=RS("Name") RS.Close set RS=nothing%>

<%set RS=server.CreateObject("ADODB.Recordset") SQL="select * from IntProducts where Store='MDB' and Category='" & catname & "' and Enabled='yes' order by Name, SubName" RS.Open SQL,CN,adOpenForwardOnly,adLockOptimistic,adCmdText tname="" do until RS.EOF if tname<>RS("Name") then Response.Write("

") Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("") Response.Write("

") Response.Write("
" & "Details...") Response.Write("") Response.Write("

") Response.Write("

" & RS("Name") & "

") Response.Write("

" & server.HTMLEncode(RS("Teaser")) & "

") Response.Write("
Price: " & formatcurrency(RS("Price"),2,-1,-1,-1) & "

") Response.Write("

") end if tname=RS("Name") RS.MoveNext loop RS.Close set RS=nothing%>