<%'*********** Set Data Connections SET rs = Server.CreateObject("ADODB.Recordset") SET cn = Server.CreateObject("ADODB.Connection") SET cm = Server.CreateObject("ADODB.Command") cn.Open "DRIVER={SQL Server};SERVER=213.171.201.131;DATABASE=admin;UID=caronk;PWD=Wm968410c" cm.ActiveConnection = cn cm.CommandText = "SELECT * FROM dbo_Town" set rs = cm.Execute %> 4 Aerials Search <% WHILE NOT rs.EOF %> <% rs.MoveNext WEND %>
Search Service List
" href="<%=rs("County")%>?Page=0&Search=<%=rs("Town")%>"> <%=rs("Town")%>