<%
Dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "dsn=hddesig_towns; uid=dbadmin; pwd=sun12day12;"
%>
<%
strSQL = "select distinct * from area"
Set objRs=objConn.execute(strSQL)
strSQL1 = "select distinct * from area"
Set objRs1=objConn.execute(strSQL1)
strSQL2 = "select distinct * from area"
Set objRs2=objConn.execute(strSQL2)
strSQL3 = "select distinct * from area"
Set objRs3=objConn.execute(strSQL3)
strSQL4 = "select distinct * from area"
Set objRs4=objConn.execute(strSQL4)
strSQL5 = "select distinct * from area"
Set objRs5=objConn.execute(strSQL5)
%>
Mileage Correction Services in the UK | Speedometer Repair | Odometer Adjustment | Digital Mileage Calibration