<%@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 '%H%' 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 %> HGV Lessons <%=Recordset1__MMid %> : ADI HGV Lessons <%=Recordset1__MMid %> : HGV Truck Artic Rigid Schools <%=Recordset1__MMid %> : <%=Recordset1__MMid %> Instructors

adi driving lessons
ADI HGV LESSONS - Irish Directory of Approved ADI Driving Schools and Instructors in <%=Recordset1__MMid %>

HGV Lessons for <%=Recordset1__MMid %>

ADI Driving Lessons

Find HGV / Truck Lessons in <%=Recordset1__MMid %>

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

Always ask to see your Instructors replica watches 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
Web Design Dublin

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