%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMid
Recordset1__MMid = "0"
If (Request.querystring("id") <> "") Then
Recordset1__MMid = Request.querystring("id")
Recordset1__MMid = replace(Recordset1__MMid,"'","")
Recordset1__MMid = replace(Recordset1__MMid,"--","")
Recordset1__MMid = replace(Recordset1__MMid,"%","")
Recordset1__MMid = replace(Recordset1__MMid,":","")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_GIDataSource_String
Recordset1_cmd.CommandText = "SELECT * FROM dbo.Listings WHERE (active='y' or active='Y') and county like ? and type like '%C%' ORDER BY sponsored desc, Companyname"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset1__MMid + "%") ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset11
Dim Recordset11_cmd
Dim Recordset11_numRows
Set Recordset11_cmd = Server.CreateObject ("ADODB.Command")
Recordset11_cmd.ActiveConnection = MM_GIDataSource_String
Recordset11_cmd.CommandText = "SELECT Country,County,count(pcode) as cnt FROM dbo.townlist group by country,county having count(pcode)>5 order by country, county, count(pcode) desc"
Recordset11_cmd.Prepared = true
'Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset1__MMid + "%") ' adVarChar
Set Recordset11 = Recordset11_cmd.Execute
Recordset11_numRows = 0
%>
<%
Dim Recordset111
Dim Recordset111_cmd
Dim Recordset111_numRows
'Recordset111__MMid = request.QueryString("id")
Set Recordset111_cmd = Server.CreateObject ("ADODB.Command")
Recordset111_cmd.ActiveConnection = MM_GIDataSource_String
Recordset111_cmd.CommandText = "SELECT Pcode,townname,county as cnt FROM dbo.townlist where county like ? order by townname"
Recordset111_cmd.Prepared = true
Recordset111_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, "%" + Recordset1__MMid + "%") ' adVarChar
Set Recordset111 = Recordset111_cmd.Execute
Recordset111_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim Repeat11__numRows
Dim Repeat11__index
Repeat11__numRows = -1
Repeat11__index = 0
Recordset11_numRows = Recordset11_numRows + Repeat11__numRows
%>
<%
Dim Repeat111__numRows
Dim Repeat111__index
Repeat111__numRows = -1
Repeat111__index = 0
Recordset111_numRows = Recordset111_numRows + Repeat111__numRows
%>
Driving Lessons <%=Recordset1__MMid %> : ADI Driving Lessons <%=Recordset1__MMid%> : Driving School <%=Recordset1__MMid%> : <%=Recordset1__MMid%> Instructors DSA
ADI DRIVING LESSONS <%=Recordset1__MMid %> - UK Directory of Approved ADI Driving Schools and Instructors in <%=Recordset1__MMid %>
All instructors listed here are rolex replica DSA ADI approved and ready to provide beginner, refresher, advanced or pre-test lessons to you. We only list professional ADIs that are replica watches committed to providing excellent driver training.
Always ask to see your Instructors ADI ID rolex replica before accepting lessons.
<% if session("access")="fine" then %>
Add Entry
<% end if %>
<% If Recordset1.EOF And Recordset1.BOF Then %>
<% if web<>"" then %>
');" >Website
<% end if %>
<% if session("access")="fine" then %>
">Edit<%=(Recordset1.Fields.Item("PrimaryAreas").Value)%>
<% end if %>