<% Response.Buffer=true %>
Laundry Carts
<%
Dim CartsConn
Dim CartsDB
Set CartsConn=Server.CreateObject("ADODB.Connection")
CartsConn.Open "DSN=LaundryCarts;"
' don:
' disable mail till we move to the WIN2000 SERVER (NEWFPS)
Dim objCDO4
'Set objCDO4 = Server.CreateObject("CDONTS.NewMail")
Dim objCDO5
'Set objCDO5 = Server.CreateObject("CDONTS.NewMail")
Dim CookCartID
CookCartID = Session("CookCartID")
CustID = Session("CustID")
%>
<%
Sub GetFormItem(sItemName, sAliasName, iMinLength, iMaxLength, fRequired)
varItem = TRIM(Request.Form(sItemName))
If sAliasName = "" Then sAliasName = sItemName
If fRequired Then
If varItem = "" Then
Session("CustomError") = Session("CustomError") _
& "Please enter at least "&iMinLength&" characters in the """ _
& sAliasName & """ field. "
Else
If Len(varItem) < iMinLength Then Session("CustomError") = _
Session("CustomError") & "Please enter at least " _
& iMinLength &" characters in the """ _
& sAliasName & """ field. "
If Len(varItem) > iMaxLength Then Session("CustomError") = _
Session("CustomError") & "Please enter at most " _
& iMaxLength &" characters in the """ _
& sAliasName & """ field. "
End If
Else
varItem = TRIM(Request.Form(sItemName))
End If
Session(sItemName) = varItem
End Sub
Sub ServerSidePasswordValidation _
(sPassword1, sPassword2, iMin, iMax,bRequired)
Call GetFormItem(sPassword1, "Password", iMin, iMax, bRequired)
Call GetFormItem(sPassword2, "Verify Password", iMin, iMax, bRequired)
Session("Password") = session(sPassword1)
bValidPassword = ( session(sPassword1) = session(sPassword2) )
if Not bValidPassword Then Session("CustomError") = _
Session("CustomError") _
& " Both Password field must has the same value! "
End Sub
Sub ServerSideEmailValidation _
(sItemName, sAliasName, iMinLength, iMaxLength, bRequired)
Call GetFormItem (sItemName, sAliasName, iMinLength, iMaxLength, bRequired)
If (InStr(session(sItemName),"@") < 2) Then
Session("CustomError") = Session("CustomError") _
& "Not a valid Email address (missing '@') "
Else
If ( InStr(InStr(session(sItemName),"@"),session(sItemName),".") < _
InStr(session(sItemName),"@")+2 ) Then Session("CustomError") = _
Session("CustomError") _
& "Not a valid Email address (missing '.') "
End If
End Sub
CheckCartID = Request.Form("CartID")
If CheckCartID = 258 Then
Call GetFormItem ("BFirstName", "First Name", 3, 50, True)
Call GetFormItem ("BLastName", "Last Name", 3, 50, True)
Call GetFormItem ("BBusiness", "Business Name", 3, 50, False)
Call GetFormItem ("BAddress1", "Billing Address", 3, 50, True)
Call GetFormItem ("BAddress2", "Address2", 3, 50, False)
Call GetFormItem ("BCity", "Billing City", 3, 50, True)
Call GetFormItem ("BState", "Billing State", 2, 4, True)
Call GetFormItem ("BZip", "Billing Zip Code", 5, 10, True)
Call GetFormItem ("BPhone", "Billing Phone", 7, 20, True)
Call GetFormItem ("CCNumber" & CookCartID & "", "Credit Card Number", 14, 20, True)
Call GetFormItem ("CCName", "Credit Card Name", 3, 50, True)
Call GetFormItem ("CCMonth", "Credit Card Exp. Month", 2, 3, True)
Call GetFormItem ("CCYear", "Credit Card Exp. Year", 4, 5, True)
Call GetFormItem ("CCCode" & CookCartID & "", "Credit Card Security Code", 3, 5, True)
Call GetFormItem ("HearUs", "Heard About Us", 3, 50, True)
Call GetFormItem ("CCType", "Credit Card Type", 2, 50, True)
Call ServerSidePasswordValidation ("passw1", "passw2", 3, 20, True)
Call ServerSideEmailValidation ("email", "E-Mail", 3, 50, True)
End If
%>
Checkout - <% If Session("CustomError") <> "" Then %>Verify Information<% Else %>Order Complete!<% End If %>
<%
If Session("CustomError") <> "" Then
Response.Write "Error: " & Session("CustomError") & ""
Response.Write " Click here to go back and fix your errors"
Session("CustomError") = ""
Else
Dim shipping
shipping = cCur(Session("ShippingCost"))
shiptext = Session("ShippingCost")
%>
Part Number
Description
Quantity
Price
Total
<%
strSQL = "SELECT CartID, PartID, IDCateg, Quantity, Price, PartDesc, Weight, Quantity * Price AS Price1 FROM CartItems WHERE CartID LIKE '" & CookCartID & "'"
Set CartsDB = CartsConn.Execute(strSQL)
If Not CartsDB.EOF Then
Do While NOT CartsDB.EOF
PartID = CartsDB("PartID")
PartDesc = CartsDB("PartDesc")
Quantity = CartsDB("Quantity")
Price = CartsDB("Price")
Price1 = CartsDB("Price1")
Response.Write "
" & PartID &"
"
Response.Write "
" & PartDesc &"
"
Response.Write "
"
Response.Write "
"
Response.Write "
$" & formatnumber(Price,2) & "
"
Response.Write "
$" & formatnumber(Price1,2) & "
"
CartsDB.MoveNext
Loop
CartsDB.Close
Set CartsDB = Nothing
Else
%>
No products added yet!
<%
End If
strSQL = "SELECT TotalQuant, TotalPrice FROM Cart WHERE CartID LIKE '" & CookCartID & "'"
Set CartsDB = CartsConn.Execute(strSQL)
If Session("SalesTax") > 0 Then
Response.Write "
"
strSQL = "SELECT CartID, PartID, IDCateg, Quantity, Price, PartDesc, Quantity * Price AS Price1 FROM CartItems WHERE CartID LIKE '" & CookCartID & "'"
Set CartsDB = CartsConn.Execute(strSQL)
Do While NOT CartsDB.EOF
HTMLcart = HTMLcart + "
" & CartsDB("PartID") &"
"
HTMLcart = HTMLcart + "
" & CartsDB("PartDesc") &"
"
HTMLcart = HTMLcart + "
" & CartsDB("Quantity") &"
"
HTMLcart = HTMLcart + "
"
HTMLcart = HTMLcart + "
$" & formatnumber(CartsDB("Price"),2) & "
"
HTMLcart = HTMLcart + "
$" & formatnumber(CartsDB("Price1"),2) & "
"
CartsDB.MoveNext
Loop
CartsDB.Close
Set CartsDB = Nothing
strSQL = "SELECT TotalQuant, TotalPrice FROM Cart WHERE CartID LIKE '" & CookCartID & "'"
Set CartsDB = CartsConn.Execute(strSQL)
If Session("SalesTax") > 0 Then
HTMLcart = HTMLcart + "
