<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 Country,County,count(pcode) as cnt FROM dbo.townlist group by country,county having count(pcode)>10 order by country, county, count(pcode) desc" 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 %> <% if request.form("companyname")<>"" then erro = 1 if request.form("ADINO")<>"" and request.form("companyname")<>"" and request.form("website")<>"" then erro=0 Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form2") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_AdminDataSource_STRING MM_editCmd.CommandText = "INSERT INTO dbo.Listings (Companyname, ADINo, Website, Mobile, Tel, Email, imageurl, [Description], County, PrimaryAreas, sponsored, type, active) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 60, Request.Form("Companyname")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 10, Request.Form("ADINo")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 100, Request.Form("Website")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 50, Request.Form("Mobile")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("Tel")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 70, Request.Form("Email")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 100, Request.Form("imageurl")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 400, Request.Form("Description")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 300, Request.Form("County")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 400, Request.Form("PrimaryAreas")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("sponsored"), Request.Form("sponsored"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 20, Request.Form("type")) ' adLongVarChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 1, Request.Form("active")) ' adLongVarChar MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl session("ADINo") = request.form("ADINO") MM_editRedirectUrl = "thankyou.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If end if %> FREE Submission Links for Driving Lessons : ADI Driving Lessons London : Cork : Limerick : Driving Schools UK

 

Advertising - UK Directory of Approved ADI Driving Schools and Instructors

<% if erro=1 then response.write "ERROR IN FORM PLEASE RESUBMIT " %> 

SUBMIT FOR FREE!!

ADI Driving Lessons has decided to provide FREE listings, Completely FREE!!!!!! The only stipulation is that you must be DSA ADI Approved and if you wish you can link to our website. No prices are allowed in your listing.

Terms: You may submit 1 rolex replica uk separate advert for each vehicle type if you provide those services. Only 1 multi-area advert per driving school per vehicle type. Instructors without there own website can ignore the link code. If you have legimate reasons for not being able to provide a backlink that will be taken into consideration.

Optional: Paste the following code on your links page...helps us but also helps you!

<!-- Link Start here --> <a href="http://www.adidrivinglessons.co.uk" title="UK Driving Lessons Directory " >ADI Driving Lessons</a><!-- Link end here -->


Optional PREMIUM listing (only £6.99 for the year)

Want to improve your profile or visibility on the replica watches sale website then fill out the free listing and choose the optional payment afterwards..

Attention DSA ADI Instructors!

Get more customers and instant payback!
Sign up to our premium service to receive more prominent listings on this website. We have a proven record of increasing business for our members making our service cost neutral. Just one referral per month is all that is needed to make a positive return on your investment but we don't stop replica watches sale there. Our service works for our members 24 / 7.

6-8 Page Business Website

For £499 euro you can avail of a professionally designed website.

ADI Driving Lessons FREE Listing

Do you just want a listing on this website? This website scores top of the search engines for ADI related terms for driving schools.

NOTE: Please do not enter any varying data such as prices or special offers as these will not be changed at your request. Only relevant necessary contact information will be amended.

Company Name:
ADI No: * Compulsary
Website: www.url.com
Mobile:
Tel:
Email:
Image: A Snapshot of your website home page will be used
Tag Description:

Counties:

(Choose multiples
using shift or CTRL)

SELECT MULTIPLES USING SHIFT or CTRL
Primary Towns:
 
Type:
Select Car, HGV, Coach, or Motorcycle
CAPTCHA:

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