<% if edutype = "" then %> <% if oRs("Premium") = True then %>

Find contact details in South Tyneside of <% dim r r = 0 response.write(" ") if not oRs.EOF then response.write "" response.write "" while not oRs.EOF response.write " " r=r+1 if r mod 8 = 0 and not oRs.EOF then response.write "" oRs.movenext wend response.write " " & oRs("EduType") & " " end if response.write " " 'ends edutype = "" end if if edutype <> "" then sqlMake="Select M.SiteName, M.Telephone, M.Fax, M.Address1, M.InCharge, M.Town, M.Postcode, MA.EduType, MA.WebsiteAddress, MA.EmailAddress, MA.Description, MA.ImageFileName, MA.Premium from Education AS M LEFT JOIN EducationDetails AS MA ON M.SiteName = MA.SiteName where EduType ='" & edutype & "' order by MA.Premium,M.SiteName" set oRs = Server.CreateObject ("ADODB.RecordSet") Set con = Server.CreateObject ("ADODB.Connection") con.open "DSN=sdancer3" oRs.open sqlMake,con,0,1 response.write "" & edutype & " " %> Back to Education Main Menu <% While NOT oRs.EOF %>

<% else %> <% end if %> <% if oRs("ImageFileName") <> "" then %>

<%=oRs("SiteName")%> <% if oRs("Fax") <> "" then %> <% end if %> <% if oRs("EmailAddress") <> "" then %> <% end if %> <% if oRs("WebsiteAddress") <> "" then %> <% end if %> Tel: <%=oRs("Telephone")%> Fax: <%=oRs("Fax")%> Email: removenospam"><%=oRs("EmailAddress")%> Website: " target='new'>http://<%=oRs("WebsiteAddress")%>

<%=oRs("InCharge")%> <%=oRs("Address1")%> <%=oRs("Town")%> <%=oRs("Postcode")%>

" width="164" height="119"> <% else %>

<% end if %>

<% description = oRs("Description") if description <> "" then %> <% if oRs("Premium") = True then %> <% else %> <% end if %>

Description: <%=description%>

<% end if %>

---

<% oRs.MoveNext() Wend end if %>