<%@ LANGUAGE="VBScript" %> <% Response.buffer = True%> <%edtype=request.querystring("type") If edtype="" Then edtype="Nursery" End If town="Hertford"%> <%Conn_String = dbSchools%> <% set my_conn= Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") my_Conn.Open (conn_string) strSQL = "SELECT schools.* FROM schools WHERE (schooltype = '" &edtype&"') AND (town= '" &town&"') order by schoolname" rs.Open strSql, my_conn, 1, 1%> Hertford, Hertfordshire. - Discover Hertford Online
<%=edtype%> Education 
 Education
 Home
 Nursery
 Primary
 Secondary
 Further
 Higher
 League Tables

 See Also
 History Of Schools
<%=edtype%> Education

    <%Do While Not RS.Eof%>
  • <%=Replace(Rs("schoolname"), "''", "'")%>     <%If rs("change_pwd")=0 then%> ">More Details <%End If%>
    <%=Replace(Rs("address"), "''", "'")%>
    <%IF rs("address1")<>"" Then%> <%=Replace(Rs("address1"), "''", "'")%>
    <%END IF%> <%IF rs("address2")<>"" Then%> <%=Replace(Rs("address2"), "''", "'")%>
    <%END IF%> <%=rs("town")%>, <%=rs("county")%>
    <%IF rs("postcode")<>"" Then%> <%=rs("postcode")%>
    <%END IF%> <%IF rs("telephone")<>"" Then%> Tel: <%=rs("telephone")%>
    <%END IF%> <%IF rs("fax")<>"" Then%> Fax: <%=rs("fax")%>
    <%END IF%>

    <%RS.MoveNext%> <%loop%> <%RS.Close%>