<%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 IntProducts where Store='BOOKS' and Name='" & Request.QueryString("prodname") & "' and Enabled='yes' order by SubName" RS.Open SQL,CN,adLockOptimistic,adLockReadOnly,adCmdText%> <%set RS=server.CreateObject("ADODB.Recordset") SQL="select * from IntCategories where Store='BOOKS' order by Teaser" RS.Open SQL,CN,adOpenForwardOnly,adLockReadOnly,adCmdText Response.Write("") eor=false do until RS.EOF if not eor then Response.Write("") 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%>