<% ' Option Explicit response.buffer=TRUE debugprint=false ' process address cookies bill_name=request.cookies("billadr")("bill_name") bill_adr1=request.cookies("billadr")("bill_adr1") bill_adr2=request.cookies("billadr")("bill_adr2") bill_adr3=request.cookies("billadr")("bill_adr3") bill_city=request.cookies("billadr")("bill_city") bill_st=request.cookies("billadr")("bill_st") bill_city=request.cookies("billadr")("bill_city") bill_zip=request.cookies("billadr")("bill_zip") bill_ac=request.cookies("billadr")("bill_ac") bill_exch=request.cookies("billadr")("bill_exch") bill_num=request.cookies("billadr")("bill_num") bill_email=request.cookies("billadr")("bill_email") ship_as_bill=request.cookies("billadr")("ship_as_bill") ship_name=request.cookies("billadr")("ship_name") ship_adr1=request.cookies("billadr")("ship_adr1") ship_adr2=request.cookies("billadr")("ship_adr2") ship_adr3=request.cookies("billadr")("ship_adr3") ship_city=request.cookies("billadr")("ship_city") ship_st=request.cookies("billadr")("ship_st") ship_city=request.cookies("billadr")("ship_city") ship_zip=request.cookies("billadr")("ship_zip") ship_ac=request.cookies("billadr")("ship_ac") ship_exch=request.cookies("billadr")("ship_exch") ship_num=request.cookies("billadr")("ship_num") ship_email=request.cookies("billadr")("ship_email") if debugprint=TRUE then response.write bill_name&" "&bill_email&"
"&vbcrlf cs=request.cookies("cartcookie") if debugprint=TRUE then response.write "cartcookie: "&cs&"
"&vbcrlf dim csa,csb,csc(30,20) csa=split(cs,"!") ' ubound(csa) is the count of the cart rows if debugprint=TRUE then response.write "csa "&ubound(csa)&"
"&vbcrlf for i=0 to ubound(csa)-1 if debugprint=TRUE then response.write "csa "&i&" "&csa(i)&"
"&vbcrlf csb=split(csa(i),"|") if debugprint=TRUE then response.write "csb "&ubound(csb)&"
"&vbcrlf for j=0 to ubound(csb) csc(i,j)=csb(j) if debugprint=TRUE then response.write "csc "&i&" "&j&" "&csc(i,j)&"
"&vbcrlf next 'j next 'i rok_tax=session.contents("rok_tax") rok_tax=formatnumber(rok_tax,2,-1,0,0) gt=session.contents("gt") gt=formatnumber(gt,2,-1,0,0) gs=session.contents("gs") gs=formatnumber(gs,2,-1,0,0) gp=session.contents("gp") gp=formatnumber(gp,2,-1,0,0) invoice=session.contents("invoice") phone=bill_ac&"-"&bill_exch&"-"&bill_num phonetoship=ship_ac&"-"&ship_exch&"-"&ship_num address=trim(bill_adr1) if len(trim(bill_adr2))>0 then ADDRESS=address&", "&trim(bill_adr2) if len(trim(bill_adr3))>0 then ADDRESS=address&", "&trim(bill_adr3) address=left(address,60) addresstoship=trim(ship_adr1) if len(trim(ship_adr2))>0 then ADDRESStoship=addresstoship&", "&trim(ship_adr2) if len(trim(ship_adr3))>0 then ADDRESStoship=addresstoship&", "&trim(ship_adr3) addresstohip=left(addresstoship,60) '''''''''''''''''''''''''''''' ' add cart values to database Sub SendLn(pMsg) if debugprint=true then Response.Write pMsg &vbcrlf End Sub '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- SearchDirectionEnum Values ---- Const adSearchForward = 1 Const adSearchBackward = -1 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 '---- SeekEnum Values ---- Const adSeekFirstEQ = &H1 Const adSeekLastEQ = &H2 Const adSeekAfterEQ = &H4 Const adSeekAfter = &H8 Const adSeekBeforeEQ = &H10 Const adSeekBefore = &H20 dim strODBC ' Connection string dim strSQL ' SQL query string dim dL ' Data connection object dim rL ' Recordset for query results dim i ' Counter ' Define a connection string for the database ' The connect string is used to login to the database. ' DSN=DSNJCBRILEY3 is the ODBC data source name and ' PWD=testpassword is the password for the database. strODBC = "DSN=DSNJCBRILEY3; PWD=testpassword;" ' Define an SQL query ' The query is to retrieve the ID,Name and Description fields ' from a table named Test, and will return the records in ' order of ID. strSQL = "SELECT * FROM wgmorder ORDER BY ID" ' Create a database connection object set dL = Server.CreateObject("ADODB.Connection") ' Open the connection to the database ' The OPEN method of the database connection object is used to ' connect to the database as defined by the ODBC connection ' string. dL.Open strODBC ' Execute the SQL query ' This will pass the SQL query to the database. ' set rL = Server.CreateObject("ADODB.Recordset") rL.open "wgmorder", dl, adOpenStatic, adLockOptimistic, adCmdTable ' set rL = dL.Execute(strSQL) ' Check to see if any records were found ' If no records were returned by the query, both the BOF ' (Beginning of File) and EOF (End of File) properties ' of the recordset object will be set to TRUE. if (rL.EOF = True) and (rL.BOF = True) then SendLn "

No records found

" else ' Move to the last record rL.movelast id=clng(rL("ID"))+1 rL.addnew int_invoice=ID+clng(999990000) invoice=right(cstr(int_invoice),9) rL("Invoice")=invoice rL("cartcookie")=cs rL("bill_name")=bill_name rL("ship_name")=ship_name Idate=formatdatetime(date(),2) rL("Idate")=Idate ITime=formatdatetime(time(),4) rL("ITime")=Itime RL("PayType")="CC" rL("bill_adr1")=bill_adr1 rL("bill_adr2")=bill_adr2 rL("bill_adr3")=bill_adr3 rL("ship_adr1")=ship_adr1 rL("ship_adr2")=ship_adr2 rL("ship_adr3")=ship_adr3 rL("bill_City")=bill_city rL("bill_st")=bill_st rL("bill_zip")=bill_zip rL("bill_ac")=bill_ac rL("bill_exch")=bill_exch rL("bill_num")=bill_num rl("bill_email")=bill_email rL("ship_City")=ship_city rL("ship_st")=ship_st rL("ship_zip")=ship_zip rL("ship_ac")=ship_ac rL("ship_exch")=ship_exch rL("ship_num")=ship_num rl("ship_email")=ship_email rL.update rL.close if debugprint=TRUE then response.write "end of adds "& INvoice&bill_name&bill_adr1&"
"&vbcrlf ' Set the counter variable to zero i=0 ' rL.open "wgmorder", dl, adOpenStatic, adLockOptimistic, adCmdTable strSQL = "SELECT * FROM wgmorder WHERE INVOICE LIKE '"&invoice&"' ORDER BY INVOICE" rL.open strsql,dl, adOpenStatic, adLockOptimistic, adCmdText rL.movefirst ' Start sending an HTML table to the browser sendln "" SendLn "" ' Loop through the record set ' The "while loop" will continue until the ' EOF property (End of File) is true. while rL.EOF = false ' Send the details of the record to the browser ' The field values in the record are retrieved from the ' recordset object. To access the field values, ' use the form: RL(""). SendLn "" for each item in RL.fields strname=item.name strvalue=item.value SendLn "" SendLn " "&vbcrlf next 'item 'SendLn "" ' Add one to the counter variable i = i+1 ' Move to the next record ' If you forget to do this, the WHILE loop will continue ' forever, because EOF will never be reached rL.movenext wend ' Send the counter total to the broswer and finish off the HTML table SendLn "" SendLn "
Table Name: WGMORDER
xx Database record: " & cStr(rL("ID")) + " yy
" & strname & "" & strvalue & "
Total Records: " + cStr(i) + "
" end if rL.close set rl = nothing if debugprint=TRUE then response.write "total shipping="&gs&" taxes="&rok_tax&"total price=">&vbcrlf '' clean out cart cookie 'response.cookies("cartcookie")="" '' %> WILSHIRE GARDEN MARKET


About Us

What We Do







Contact Us Events Garden
& Planters
Outdoor Living Tools & Essentials Exterior Decorating


Shipping Policy

  • We take great care to pack and ship  products to ensure their safe and prompt  arrival.  All products are guaranteed to be free of material and / or workmanship defects at time of shipment.

  • We use the appropriate shipping method for each article.  The shipping cost is listed on the order confirmation and is itemized for each item.

  • The time for receipt of an order varies depending on the size and weight of our merchandise.  Single, lightweight items can be processed and packed in 1 - 2 business days; shipping via USPS or UPS can require an additional 2 - 4 business days, depending on ship-to location.  Heavy items requiring truck shipping may require a considerably longer period for processing, packing, and shipping.  Items may be shipped separately. 

  • If an item is unavailable or will be delayed, we will contact customers after an order is entered to explore alternate options.

  • Shipments should be inspected immediately upon arrival.  If an item is damaged during shipment, please file a claim with the carrier for any losses or damages, retain the packaging to substantiate the claim, and report the loss to us within 24 hours of shipment receipt.  We will replace damaged products, provided these are reported to us immediately and merchandise is in its original packaging.

  • We do not ship to countries outside the United States, including Canada and Mexico.

  • All prices and charges are in US Dollars.

Return Policy

  • To return a product, first call us to obtain a Return Authorization Number.  Products returned for refunds must be in their resalable, original condition, and the customer pays for return shipping.  After receipt of product, we will charge a 20% restocking fee plus the shipping costs we incurred when we shipped the merchandise to you.

Privacy Policy

  • We will not release information about our customers to any organization for marketing purposes.