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