<%
dim rs, query, counter, respid
counter = 1
dim Cat, Code
dim catval
Cat = Request("Cat")
Code = Request("Code")
If Len(Cat) < 1 then
Cat = "Select a tour type"
catval = "Not Selected"
else
catval = Cat
End if
Function QText(T)
dbConnect()
Set rs = Server.createobject("ADODB.Recordset")
Query = "SELECT QuestionForm FROM Questions where QuestionID = " & T
rs.Open Query, Connect
QText = rs(0)
call dbClose()
End function
%>
Combined Coaches | Official Website
<%
Dim pageName
pageName="bookings"
%>