<% 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 Online Quote

Hurry for you Transport auto and Car Transport - car shipping car transportation, ship car

Serving all 48 States

 

Auto Shipping and CAR Transport Done Right car carriers Car Transporter

866-429-9677

Mon-Fri 9am to 7pm (Eastern)

Auto Transport Home

Auto Transport and Shipping Provides Nationwide Auto Transporting Cross America. |  | your Auto Transport and Auto Shipping Company that Ships Cars Nationwide|Auto Transport and Auto Shipping | |

OUR ONLINE QUOTE  SYSTEM IS BEING UPDATED, PLEASE CALL 866-429-9677

Our quote system is being updated please call

866-429-9677 for a quote

 

Click here for an instant Car Shipping Quote