Scheduling Training Programs <%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='SS' 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("
")
end if
tname=RS("Name")
RS.MoveNext
loop
RS.Close
set RS=nothing%>
") Response.Write("
| ")
Response.Write("")
Response.Write(" " & "Details...") Response.Write("") Response.Write(" | ")
Response.Write("")
Response.Write(" " & RS("Name") & " ") Response.Write("") Response.Write("Price: " & formatcurrency(RS("Price"),2,-1,-1,-1) & "") Response.Write(" |