<%FIRSTNAME = Request.Form ("FIRSTNAME")%> <%LASTNAME = Request.Form ("LASTNAME")%> <%ADDRESS = Request.Form ("ADDRESS")%> <%CITY = Request.Form ("CITY")%> <%STATE = Request.Form ("STATE")%> <%ZIP = Request.Form ("ZIP")%> <%EMAIL = Request.Form ("EMAIL")%> <% ' Define Constants CONST CARTPID = 0 CONST CARTPNAME = 1 CONST CARTPPRICE = 2 CONST CARTPQUANTITY = 3 ' Get The Shopping Cart IF NOT isArray( Session( "cart" ) ) THEN DIM localCart( 4, 20 ) ELSE localCart = Session( "cart" ) END IF ' Get Product Information productID = TRIM( Request( "pid" ) ) productName = TRIM( Request( "productName" ) ) productPrice = TRIM( Request( "productPrice" ) ) ' Add Item to cart IF productID <> "" THEN foundIT = FALSE FOR i = 0 TO UBOUND( localCart ) IF localCart( CARTPID, i ) = productID THEN localCart( CARTPQUANTITY, i ) = localCart( CARTPQUANTITY, i ) + 1 foundIT = TRUE EXIT FOR END IF NEXT IF NOT foundIT THEN FOR i = 0 TO UBOUND( localCart, 2 ) IF localCart( CARTPID, i ) = "" THEN localCart( CARTPID, i ) = productID localCart( CARTPNAME, i ) = productName localCart( CARTPPRICE, i ) = productPrice localCart( CARTPQUANTITY, i ) = 1 EXIT FOR END IF NEXT END IF END IF ' Update Shopping Cart Quantities IF Request( "updateQ" ) <> "" THEN FOR i = 0 TO UBOUND( localCart, 2 ) newQ = TRIM( Request( "pq" & localCart( CARTPID, i ) ) ) IF newQ = "" or newQ = "0" THEN localCart( CARTPID, i ) = "" ELSE IF isNumeric( newQ ) THEN localCart( CARTPQUANTITY, i ) = newQ END IF END IF NEXT END IF ' Update Session variable with Array Session( "cart" ) = localCart %> <% Set newMailObj = CreateObject("CDONTS.Newmail") recipStr = "kio@nyakio.com, sboyer@gulfportenergy.com" newMailObj.From = "info@nyakio.com" newMailObj.To = recipStr newMailObj.Subject = "Order Notice - NYAKIO.com" MSG="The following items have been checked out.
" MSG= MSG & "Please log in to your secured Authorize.net account to verify that this transaction has been approved.

" MSG= MSG & "FIRST NAME: " & FIRSTNAME & "
" MSG= MSG & "LAST NAME: " & LASTNAME & "
" MSG= MSG & "ADDRESS: " & ADDRESS & "
" MSG= MSG & "CITY: " & CITY & "
" MSG= MSG & "STATE: " & STATE & "
" MSG= MSG & "ZIP: " & ZIP & "
" MSG= MSG & "EMAIL: " & EMAIL & "


" MSG= MSG & "" FOR i = 0 TO UBOUND( localCart, 2 ) IF localCart( CARTPID, i ) <> "" THEN orderTotal = orderTotal + ( localCart( CARTPPRICE, i ) * localCart( CARTPQUANTITY, i ) ) MSG=MSG & "" MSG=MSG & "" MSG=MSG & "" TotalQuantity = TotalQuantity + localCart( CARTPQUANTITY, i ) myShipping = session("myShipping") END IF NEXT MSG=MSG & "
Product NamePriceQuantity
" & Server.HTMLEncode( localCart( CARTPNAME, i ) ) & "" & formatCurrency( localCart( CARTPPRICE, i ) ) & "" & localCart( CARTPQUANTITY, i ) & "

 

" MSG=MSG & "Subtotal: " & formatCurrency( orderTotal ) MSG=MSG & "
Shipping: " & formatCurrency( myShipping ) MSG=MSG & "
Grand Total: " & formatCurrency( myShipping+orderTotal ) &"" %> <% newMailObj.MailFormat = 0 newMailObj.BodyFormat = 0 newMailObj.Body = MSG newMailObj.Send Set newMailObj = Nothing %> NYAKIO | BATH & BODY
 
 
  Your product will be shipped within 7-10 business days.

Thank you.

NYAKIO.com
 

 

Back to products page

  
 
 
Copyright ©2002 • nyakio.com • All Rights Reserved