<%@ Language=VBScript %> The Madow Group - Great Products - Collection Forms
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='CMR' 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 set RS=nothing set CN=nothing%>

Collection Materials
 
<%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='CMR' and Name='" & Request.QueryString("prodname") & "' and Enabled='yes' order by SubName" RS.Open SQL,CN,adLockOptimistic,adLockReadOnly,adCmdText%>
<%=RS("Name")%>
<%Response.Write("")%> <%=server.HTMLEncode(RS("Description"))%>
<%response.Write("") do until RS.EOF Response.Write("") if RS("SubName")<>"" then xname=RS("SubName") else xname=RS("Name") end if Response.Write("") Response.Write("") Response.Write("") Response.Write("") RS.MoveNext loop Response.Write ("
" & xname & "" & formatcurrency(RS("Price"),2,-1,-1,-1) & "" & "" & "
") RS.Close%>