<%@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 %>

Driving Lessons for <%=Recordset1__MMid %>

<%=Recordset1__MMid %> Driving Lessons <%=Recordset1__MMid %>

Find Driving Lessons 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 %>

No Instructors in this area yet - Interested in appearing here

<% End If ' end Recordset1.EOF And Recordset1.BOF %> <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) web = (Recordset1.Fields.Item("Website").Value) %> " id="bubble"> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

<% if web<>"" then %> <% else %> <%=(Recordset1.Fields.Item("Companyname").Value)%> <% end if %>

ADI No. :  <%=(Recordset1.Fields.Item("ADINo").Value)%>

Mobile: <%=(Recordset1.Fields.Item("Mobile").Value)%>    
Tel: <%=(Recordset1.Fields.Item("Tel").Value)%>    
Email: 
Areas: <%=(Recordset1.Fields.Item("PrimaryAreas").Value)%>
<% if web<>"" then %> ');" >Website <% end if %> <% if session("access")="fine" then %>
">Edit <%=(Recordset1.Fields.Item("PrimaryAreas").Value)%> <% end if %>
 
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>
<% While ((Repeat111__numRows <> 0) AND (NOT Recordset111.EOF)) %>
<%=recordset111.fields.item("townname").value %>
<% Repeat111__index=Repeat111__index+1 Repeat111__numRows=Repeat111__numRows-1 Recordset111.MoveNext() Wend %>
ADI Driving Lessons UK      About Us | Site Map | Privacy Policy | Contact Us | ©2009 Road Ready Limited
Web Design

<% Recordset1.Close() Set Recordset1 = Nothing %>