<%
dim stSQL, connTemp, rstProdGrp, stGrpURL
' open connection
set connTemp = server.createobject("adodb.connection")
connTemp.open strConn
stSQL = "GetProductGroups"
set rstProdGrp = conntemp.execute(stSQL)
%>
Please
pick a course group below
Credit card bookings are immediately confirmed
On-account
facilities for Corporates
Simple
authorisation process for Corporate employees
Late
Availability Concessions - upto 30% off
|
<%
'if not (rstProdGrp.BOF = true and rstProdGrp.EOF = true) then
' rstProdGrp.MoveFirst
while not rstProdGrp.eof = true
stGrpURL = "ob_Events.asp?gc=" & rstProdGrp("GroupCode") & "&gn=" & _
server.urlencode(rstProdGrp("GroupName")) %>
|
|
<%
rstProdGrp.movenext
wend
'end if
%>
"Click
here for Terms & Conditions"