<%@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 '%E%' 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 Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> Coach Lessons <%=Recordset1__MMid %> : ADI Coach Lessons <%=Recordset1__MMid %> : Coach School <%=Recordset1__MMid %> : <%=Recordset1__MMid %> Instructors
a roadready service

ADI COACH LESSONS - Irish Directory of Approved ADI Driving Schools and Instructors in <%=Recordset1__MMid %>

Coach / Bus Lessons for <%=Recordset1__MMid %>

ADI Driving Lessons

Find Coach / Bus Lessons in <%=Recordset1__MMid %>

All instructors listed here are RSA ADI approved and ready to provide beginner, refresher, advanced or pre-test lessons to you. We only list professional ADIs that are committed to providing excellent driver training.

Always ask to see your Instructors ADI ID 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 %>');"><%=(Recordset1.Fields.Item("Companyname").Value)%><% 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 <% end if %>
 
<% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

ADI Driving Lessons Ireland      About Us | Site Map | Privacy Policy | Contact Us | ©2009 Road Ready Limited

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