%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_mcfaddenhonda521_STRING
Recordset1.Source = "SELECT * FROM used1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Book an Appointment for your Honda Service at McFadden Honda Lethbridge, Alberta
| To Book a Service Appointment on-line PLEASE make sure you fill in ALL the Fields. We do require your Phone # so we can contact you to confirm. |
|
|
<%
Function getPadded(val)
Dim retVal
retVal=val
if (val <10 ) then
retVal="0" & val
end if
getPadded=retVal
End Function
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>