<%@ LANGUAGE="VBScript" %> <% Response.buffer = True%> <%idno=request.querystring("id") If idno="" Then response.redirect("education.asp") End If%> <%Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\hertsweb\databases\schools.mdb" set my_conn= Server.CreateObject("ADODB.Connection") set rs = Server.CreateObject("ADODB.Recordset") my_Conn.Open (conn_string) strSQL = "SELECT schools.* FROM schools WHERE schID = " &idno rs.Open strSql, my_conn, 1, 1%> ">

<%=rs("schooltype")%> Education

Education  Home  Nursery  Primary  Secondary  Further  Higher  League Tables

<%=Replace(Rs("schoolname"), "''", "'")%>  <%=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%> <%IF rs("image")<>"" Then%> .gif" WIDTH=100 Height=75> <%ELSE%> <%END IF%> <%IF rs("postcode")<>"" Then%> <%post=left(rs("postcode"),4) code=right(rs("postcode"),3) %> &back=Back+To+Site&url=javascript:history.back()&nolocal=Y&bimage=background%3dhttp://www.hertsweb.org.uk/images/newbg.jpg Target=_top">Location map of school <%END IF%> <%IF rs("head")<>"" Then%> Headteacher:   <%=Replace(Rs("head"), "''", "'")%> <%END IF%> <%IF rs("Email")<>"" Then%> Email:   <%=rs("Email")%> <%END IF%> <%IF rs("web")<>"" Then%> Web:   <%END IF%> <%IF rs("description")<>"" Then%> <%=Replace(Rs("description"), "''", "'")%> <%END IF%>