<% dim objConn call openConn Set objRec = Server.CreateObject("ADODB.Recordset") strSQL = "Select field1 from sheet1" objRec.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText if Not objRec.EOF then arrLocations = objRec.getrows intLocations = Ubound(arrLocations,2) else intLocations = -1 end if objRec.close strSQL = "Select * from sheet2" objRec.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText if Not objRec.EOF then arrCarTypes = objRec.getrows intCarTypes = Ubound(arrCarTypes,2) else intCarTypes = -1 end if objRec.close set objRec = nothing objConn.Close ''' Close Connection Object (also sets objRec = nothing) call closeConn %> Auto Transport
 

Auto Transport Home / Tips / FAQ

 

Car Dealers with multiple cars/ full loads please call for your discounted dealer price.

 Select your origination and destination from the drop down  menu, and scroll to the bottom of the page and click (Calculate Shipping) to get an instant quote. If you do not see your city listed please call.

Suburban areas) select the nearest city within a 25Mile Radius

 

Origination Destination
 


<% for x = 0 to intCarTypes CarType_ID = arrCarTypes(0,x) CarName = arrCarTypes(1,x) CarCost = arrCarTypes(2,x) CarDesc = arrCarTypes(3,x) CarCol = arrCarTypes(4,x) if CarCol = 1 then Response.write "" Response.write "" Response.write "" end if next %>
" response.write "" Response.write "" Response.write "" & CarName & "
" if CarDesc <> "" then Response.write CarDesc & "

" else Response.write "
" end if Response.write "
<% for x = 0 to intCarTypes CarType_ID = arrCarTypes(0,x) CarName = arrCarTypes(1,x) CarCost = arrCarTypes(2,x) CarDesc = arrCarTypes(3,x) CarCol = arrCarTypes(4,x) if CarCol = 2 then Response.write "" Response.write "" Response.write "" end if next %>
" response.write "" Response.write "" Response.write "" & CarName & "
" if CarDesc <> "" then Response.write CarDesc & "

" else Response.write "
" end if Response.write "
<% for x = 0 to intCarTypes CarType_ID = arrCarTypes(0,x) CarName = arrCarTypes(1,x) CarCost = arrCarTypes(2,x) CarDesc = arrCarTypes(3,x) CarCol = arrCarTypes(4,x) if CarCol = 3 then Response.write "" Response.write "" Response.write "" end if next %>
" response.write "" Response.write "" Response.write "" & CarName & "
" if CarDesc <> "" then Response.write CarDesc & "

" else Response.write "
" end if Response.write "


Enclosed Carrier

 

 

Car Transport auto shipping auto transport delivery

copyright