Madow's Latest!
<%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='SS' 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='SS' order by Teaser"
RS.Open SQL,CN,adOpenForwardOnly,adLockReadOnly,adCmdText
Response.Write("")
eor=false
do until RS.EOF
if not eor then
Response.Write("
")
RS.Close%>
| ")
Response.Write(RS("Name"))
Response.Write(" " & server.HTMLEncode(RS("Teaser"))) Response.Write(" | ")
Response.Write("")
Response.Write(RS("Name"))
Response.Write(" " & server.HTMLEncode(RS("Teaser"))) Response.Write(" | ")
end if
eor=not eor
RS.MoveNext
loop
if eor then
Response.Write("") Response.Write(" ") Response.Write(" | ") end if Response.Write ("
<%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='SS' 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("
")
RS.Close%>
| " & xname & " | ") Response.Write("" & formatcurrency(RS("Price"),2,-1,-1,-1) & " | ") Response.Write("" & "" & " | ") Response.Write("
Questions? Feel free to
e-mail us!