STUDENT

<% if DEPT_ID <> "" then %> <% if city <> "" then %> <% if stream <> "" then %>

Select State	Select State <% Set Conn = server.createobject("adodb.connection") Const adOpenStatic=3 Const adLockOprimistic=3 dim rs,connect Conn="provider=microsoft.jet.oledb.4.0;" &_ " data source=" & Server.MapPath("Database.mdb") set rs1 = server.createobject("adodb.recordset") sql = "select DISTINCT state from learning_centres order by state" rs1.open sql,conn if not rs1.eof then while not rs1.eof %> " <% if trim(DEPT_ID)= trim(rs1("state")) then %> selected <%end if%> > <%=rs1("state")%> <% rs1.movenext wend rs1.close set rs1 = nothing ' RESPONSE.WRITE SQL 'response.end end if %>
Select City	Select City <% set rs = server.createobject("adodb.recordset") sql = "select DISTINCT city from learning_centres where state='" & DEPT_ID & "'" 'reponse.write sql rs.open sql,conn if not rs.eof then while not rs.eof %> " <% if trim(city)= trim(rs("city")) then %> selected <%end if%> > <%=rs("city")%> <% rs.movenext wend rs.close set rs = nothing end if %>   <% end if %>
Select Stream	Select Stream <% set rs = server.createobject("adodb.recordset") sql = "select DISTINCT stream_name from stream" 'reponse.write sql rs.open sql,conn if not rs.eof then while not rs.eof %> " <% if trim(stream)= trim(rs("stream_name")) then %> selected <%end if%> > <%=rs("stream_name")%> <% rs.movenext wend rs.close set rs = nothing end if %>   <% end if %>
Select Course	Select Course <% set rs = server.createobject("adodb.recordset") sql = "select DISTINCT course_name from stream where stream_name='" & stream & "'" 'reponse.write sql rs.open sql,conn if not rs.eof then while not rs.eof %> " <% if trim(course)= trim(rs("course_name")) then %> selected <%end if%> > <%=rs("course_name")%> <% rs.movenext wend rs.close set rs = nothing end if %>   <% end if %>