<% Option Explicit Response.Buffer=True Const vDebug = 0 '@BEGINVERSIONINFO '@APPVERSION: 5.10.10 '@FILENAME: process_order.asp '@FILEVERSION: 1.0.2 '@VERSIONDATETIME: 3/1/01 '@DESCRIPTION: Gathers Information For order. '@STARTCOPYRIGHT 'The contents of this file is protected under the United States 'copyright laws and is confidential and proprietary to 'LaGarde, Incorporated. Its use or disclosure in whole or in part without the 'expressed written permission of LaGarde, Incorporated is expressly prohibited. ' '(c) Copyright 2000,2001 by LaGarde, Incorporated. All rights reserved. '@ENDCOPYRIGHT '@ENDVERSIONINFO %> <% Dim sSql,sEmail,iOrderID,rsMyOrders, sPassword, iAuthenticate, bLoggedIn, sCondition, sPaymentMethod, sPaymentList Dim sProdID,iQuantity,iShip,sTotalPrice,strProdID,intQuantity,rstAdmin,sTotalCost,blnFree, iFreeShip ' initially false bLoggedIn = false iShip = 0 sSQL = "SELECT * FROM sfTmpOrderDetails WHERE odrdttmpShipping >= 1 AND odrdttmpSessionID = " & Session("SessionID") Set rsMyOrders = Server.CreateObject("ADODB.RecordSet") Set rstAdmin = Server.CreateObject("ADODB.RecordSet") rsMyOrders.Open sSQL, cnn, adOpenForwardOnly, adLockReadOnly, adCmdText rstAdmin.Open "sfAdmin", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTable sTotalPrice =Request.Form("TotalPrice") If Not rsMyOrders.EOF Then rsMyOrders.MoveFirst iShip = 0 Do While NOT rsMyOrders.EOF iShip = iShip + rsMyOrders.Fields("odrdttmpShipping") rsMyOrders.MoveNext loop End If blnFree =False if iShip <> 0 then iFreeShip = rstAdmin.Fields("adminFreeShippingIsActive") if (cdbl(sTotalPrice) > cdbl(rstAdmin.Fields("adminFreeShippingAmount")) AND iFreeShip = "1") then blnFree =True end if elseif iShip = 0 then blnFree =True else blnFree =False end if rsMyOrders.Close rstAdmin.Close set rstAdmin =nothing set rsMyOrders = nothing '------------------------------------------------------- ' See if session is repeating, if so, give new id to use '------------------------------------------------------- If Session("SessionID") = Request.Cookies("EndSession") Then bLoggedIn = false End If '------------------------------------------------------- ' Check if custID exists '------------------------------------------------------- iCustID = Session("custID") If iCustID <> "" Then Dim bCustIdExists bCustIdExists = CheckCustomerExists(iCustID) If bCustIdExists = false Then Response.Cookies("sfCustomer")("custID") = "" Response.Cookies("sfCustomer").Expires = NOW() Else Response.Cookies("sfCustomer")("custID") = iCustID Response.Cookies("sfCustomer").Expires = Date() + 730 End If End If If Request.Cookies(Session("GeneratedKey") & "sfOrder")("SessionID") = Session("SessionID") AND Request.Cookies(Session("GeneratedKey") & "sfOrder")("SessionID") <> "" AND bCustIdExists Then bLoggedIn = true End If ' Get Payment List sPaymentList = getPaymentMethods() '------------------------------------------------------- ' If login button is depressed '------------------------------------------------------- If Trim(Request.Form("btnLogin.x")) <> "" Then sEmail = Trim(Request.Form("Email")) sPassword = Trim(Request.Form("Passwd")) ' Authenticate iAuthenticate = customerAuth(sEmail,sPassword,"loose") If iAuthenticate > 0 Then If Request.Cookies("sfCustomer")("custID") <> "" AND iAuthenticate <> Request.Cookies("sfCustomer")("custID") Then Dim bSvdCartCust bSvdCartCust = CheckSavedCartCustomer(Request.Cookies("sfCustomer")("custID")) 'Response.write "Saved Cart Cust?" & Request.Cookies("sfCustomer")("custID") & "False?" & bSvdCartCust If bSvdCartCust Then ' Delete SvdCartCustomer Row Call DeleteCustRow(Request.Cookies("sfCustomer")("custID")) ' See if saved cart has any remaining saved Call setUpdateSavedCartCustID(iAuthenticate,Request.Cookies("sfCustomer")("custID")) End If End If Response.Cookies(Session("GeneratedKey") & "sfOrder")("SessionID") = Session("SessionID") Response.Cookies(Session("GeneratedKey") & "sfOrder").Expires = Date() + 1 Response.Cookies("sfCustomer")("custID") = iAuthenticate Response.Cookies("sfCustomer").Expires = Date() + 730 Session("custID") = iAuthenticate bLoggedIn = true iCustID = iAuthenticate Else If customerAuth(sEmail,sPassword,"loosest") > 0 Then sCondition = "EmailMatch" Response.Cookies("sfCustomer").Expires = Now() Else sCondition = "WrongCombination" Response.Cookies("sfCustomer").Expires = Now() End If End If End If %> SF Information Gathering Page for Check Out/Second Step in Checkout
<%If C_BNRBKGRND = "" Then%> <%Else%> <%End If%>
<%= C_STORENAME %>
Customer Information

This is the final step in completing your order. You are now connected using a secure (SSL) connection and all information is transmitted in an encrypted form. You should see a small key (Netscape) or lock (IE) indicating that your browser is communicating securely with our web store.

Step 1: Customer Information | Step 2: Payment Information | Step 3: Complete Order
<% If Not bLoggedIn Then %>
Returning Customer Login
E-Mail:
Password:
Forgot your password?
Change Login/Password
<% If sCondition = "EmailMatch" or sCondition = "WrongCombination" Then %> Login Failed <% Else %> Login Directions <% End If %>
<% If sCondition = "EmailMatch" Then %> Your combination was wrong, but an e-mail match was found. Please login with the correct password or if you wish to open a new account, you must choose a new password. <% ElseIf sCondition = "WrongCombination" Then %> Your e-mail and password combination is incorrect. Try again. <% Else %> Please use your e-mail address and password to log in and retrieve your customer information. <% End If %>
<% End If %>