<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsCustomers__MM_CustID rsCustomers__MM_CustID = "''" If (Request( "logCustID" ) <> "") Then rsCustomers__MM_CustID = Request( "logCustID" ) Else rsCustomers__MM_CustID = "ID" End If %> <% Dim rsCustomers__MM_Password rsCustomers__MM_Password = "''" If (Request( "logPassword" ) <> "") Then rsCustomers__MM_Password = Request( "logPassword" ) Else rsCustomers__MM_Password = "Password" End If %> <% Dim rsCustomers Dim rsCustomers_numRows Set rsCustomers = Server.CreateObject("ADODB.Recordset") rsCustomers.ActiveConnection = MM_connCustomers_STRING rsCustomers.Source = "SELECT * FROM Customers WHERE CustID='" + Replace(rsCustomers__MM_CustID, "'", "''") + "' AND Password='" + Replace(rsCustomers__MM_Password, "'", "''") + "'" rsCustomers.CursorType = 0 rsCustomers.CursorLocation = 2 rsCustomers.LockType = 1 rsCustomers.Open() If rsCustomers.EOF Then rsCustomers.Close() Set rsCustomers = Nothing Set rsCustomers = Server.CreateObject("ADODB.Recordset") rsCustomers.ActiveConnection = MM_connCustomers_STRING rsCustomers.Source = "SELECT * FROM Customers WHERE CustID='ID' AND Password='Password'" rsCustomers.CursorType = 0 rsCustomers.CursorLocation = 2 rsCustomers.LockType = 1 rsCustomers.Open() End If 'rsCustomers_numRows = 0 %> <% ' Define Constants CONST CARTPLANTID = 0 CONST CARTCOMMONNAME = 1 CONST CARTBOTANICALNAME = 2 CONST CARTQUANTITY = 3 CONST CARTSIZE = 4 '------------------------------------------------ ' GET THE SHOPPING CART AND OR SET UP SESSION VARIABLE IF NOT isArray( Session( "cart" ) ) THEN DIM localCart( 4, 20 ) ELSE localCart = Session( "cart" ) END IF '------------------------------------------------ ' GET THE PRODUCT INFORMATION 'PlantID = TRIM( Request( "PlantID" ) ) 'CommonName = TRIM( Request( "CommonName" ) ) 'BotanicalName = TRIM( Request( "BotanicalName" ) ) '--------------------------------------------------- ' ADD ITEM TO SHOPPING CART 'IF PlantID <> "" THEN 'foundIT = FALSE 'FOR i = 0 TO UBOUND( localCart ) 'IF localCart( CARTPLANTID, i ) = PlantID THEN 'localCart( CARTQUANTITY, i ) = localCart( CARTQUANTITY, i ) + 1 'foundIT = TRUE 'EXIT FOR 'END IF 'NEXT 'IF NOT foundIT THEN 'FOR i = 0 TO UBOUND( localCart, 2 ) 'IF localCart( CARTPLANTID, i ) = "" THEN 'localCart( CARTPLANTID, i ) = PlantID 'localCart( CARTCOMMONNAME, i ) = CommonName 'localCart( CARTBOTANICALNAME, i ) = BotanicalName 'localCart( CARTQUANTITY, i ) = 1 'localCart( CARTSIZE, i ) = "Flat" 'EXIT FOR 'END IF 'NEXT 'END IF 'END IF '------------------------------------------------ ' UPDATE THE QUANTITIES IN THE SHOPPING CART 'IF Request( "updateQ" ) <> "" THEN 'FOR i = 0 TO UBOUND( localCart, 2 ) 'newQ = TRIM( Request( "pq" & localCart( CARTPLANTID, i ) ) ) 'IF newQ = "" or newQ = "0" THEN 'localCart( CARTPLANTID, i ) = "" 'ELSE 'IF isNumeric( newQ ) THEN 'localCart( CARTQUANTITY, i ) = newQ 'END IF 'END IF 'newS = TRIM( Request( "ps" & localCart( CARTPLANTID, i ) ) ) 'IF newS = "" or newS = "0" THEN 'localCart( CARTPLANTID, i ) = "" 'ELSE 'localCart( CARTSIZE, i ) = newS 'END IF 'NEXT 'END IF '------------------------------------------------------- ' UPDATE SESSION VARIABLE WITH ARRAY Session( "cart" ) = localCart '------------------------------------------------------- %> Pro Growers, Inc.

<% If rsCustomers.Fields.Item("CustID").Value<>"ID" THEN %> <% Else %> <% End If %> <% If rsCustomers.Fields.Item("CustID").Value<>"ID" THEN %> <% Else %> <% End If %>
Your Order Details
<%="Plant ID#: " & chPlantId & vbcrlf & "Common Name: " & chCommonName & vbcrlf & "Botanical Name: " & chBotanicalName & vbcrlf & "Quantity: " & chQuantity & " (" & chSize & ")" & vbcrlf & "_________" & vbcrlf%> <% END IF NEXT %>"> Privacy Policy
User Name:
" size="20" maxlength="20">
Password:
" size="20" maxlength="20">
First Name:
 " size="60" maxlength="60">
Last Name:
" size="60" maxlength="60">
Address 1:
 " size="60" maxlength="60">
Address 2:
 " size="60" maxlength="60">
Town / City:
 " size="60" maxlength="60">
ZIP Code:
" size="10" maxlength="10">
County / State:
 " size="25" maxlength="25">
Company:
 " size="60" maxlength="60">
Phone:
 " size="20" maxlength="20"> (Please include your area code)
Fax:
 " size="20" maxlength="20">
Email:
 " size="60" maxlength="60">
Supply By:
 (mm/dd/yyyy)
Ship To:
Do you have any comment or suggestion? <% rsCustomers.Close() Set rsCustomers = Nothing %>