% '******************************************************************** '** Set up COM '******************************************************************** set oConnectCOM = Server.CreateObject("WebCOM.WebCOM") '** Throw error in case COM creation fails if err.number <> 0 then Response.Write "
" & _ "" & _ "ERROR: We're sorry, but web access is currently unavailable. " & _ "Please call " & istrCourierName & " at " & istrCourierPhone & " for assistance." & _ "" & _ "
" Response.End end if '******************************************************************** '** Do we have QwikQuote? '******************************************************************** oConnectCOM.DATAPATH = istrDataPath oConnectCOM.ACCOUNTNUMBER = chrAccount strShowError = oConnectCOM.QQCus(intSerial) if trim(strShowError) = "" then strShowError = oConnectCOM.QQInstalled(intSerial) end if set oConnectCOM = nothing '******************************************************************** '** Set up ADODB '******************************************************************** set objServicesConnect = Server.CreateObject("ADODB.Connection") objServicesConnect.Open istrServiceConnection set objRec = Server.CreateObject("ADODB.Recordset") strService = "[Select Service]" '******************************************************************** '** Start populating the various inputs on the form '** Build basecharges dropdown '******************************************************************** dim strBaseServiceDropdown strSQL = "SELECT DISTINCT webServices.* " & _ "FROM webservices " & _ "ORDER BY cservice, csurcharge" objRec.open strSQL, objServicesConnect, adOpenForwardOnly, adLockReadOnly oldService = "" blnFirstService = true strXMLServices = "LA, Los Angeles, Beverly Hills, California Messenger Courier Delivery
|
|
|
|
|||||||||||||||
|
Messenger Courier Deliveries 24 hours |
|||||||||||||||||
|
|
|
|
|||||||||||||||
|
|||||||||||||||||
|
|
|
||||||||||||||||
|
|
|||||||||||||||||
|
|
LA, Los Angeles, Beverly Hills, California Messenger Courier Delivery |
| 24/7 Messenger (310) 568-9175 |
Clockwork Express, Inc. 269 So.
Beverly Dr., Beverly Hills, CA 90212
Copyright © 2003 All rights reserved.
Revised:
06/20/06
<