<%@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 '%M%' 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 School <%=Recordset1__MMid %> : <%=Recordset1__MMid %> Instructors

adi driving lessons
MOTORCYCLE LESSONS - Irish Directory of Approved Bike Schools and Instructors in <%=Recordset1__MMid %>

Motorcycle Lessons for <%=Recordset1__MMid %>

ADI Driving Lessons

Find Motorcycle / Motorbike Lessons in <%=Recordset1__MMid %>

All instructors listed here are replica watches ready to provide beginner, refresher, advanced or pre-test lessons to you. We only list professional instructors that are committed to rolex replica sale providing excellent bike training.

Always ask to see your Instructors rolex replica uk 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 %>