%@ Language=VBScript %> <% Option Explicit %> <% Dim rsProv, strSQL my_conn.Open ConnString %>
Please select the State you want take the course
Please select State... <% set rsProv = server.CreateObject("ADODB.RecordSet") strSQL = "SELECT intID,strShort,strLong from tblState where intID in (select intState from tblCourseDetail where bitActive = 1) order by strLong" set rsProv = my_conn.Execute(strSQL) Do While (Not rsProv.EOF) %> " > <%=rsProv("strLong")%> <% rsProv.MoveNext loop rsProv.Close() set rsProv = nothing %>
<% my_conn.close set my_conn = nothing %>
To view our current course schedule, please click the button below.