<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_achiever_STRING Recordset1.Source = "SELECT name, principal, address, phone, website FROM school" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <%DoHeader%>
">
School Jacket

[+] Your School Selected is: <%=Request.Form("school")%> ">

Chenille Desgin
[+] The First Name on front is: <%=Request.Form("chenillefirst")%> ">
[+] First Name Type: <%=request.form("firstnametype")%> "> Check the Options
[+] The Last Name on Back is: <%=Request.Form("chenillelast")%> ">
[+] Letter on Front: <%=Request.Form("chenilleletter")%> ">
[+] Grad Year: <%=Request.Form("chenilleyear")%> ">
[+] Type of Grad Year: <%=Request.Form("yeartype")%> "> Check the Options 		[+] Shoulder Script Names Right: <%=Request.Form("chenilleright")%> ">
[+] Shoulder Script Names Left: <%=Request.Form("chenilleleft")%> ">
[+] Activities:
<%=Request.Form("activities1")%> ">
<%=Request.Form("activities2")%> ">
<%=Request.Form("activities3")%> ">
<%=Request.Form("activities4")%> ">
<%=Request.Form("activities5")%> ">
[+] # Bars:
<%=Request.Form("activitiesbar1")%> ">
<%=Request.Form("activitiesbar2")%> ">
<%=Request.Form("activitiesbar3")%> ">
<%=Request.Form("activitiesbar4")%> ">
<%=Request.Form("activitiesbar5")%> ">

Custom Patches
[+] Worded Patch #1 <%=Request.Form("patches1")%> ">
<%=Request.Form("patches1state")%> "> 		[+] Worded Patch #2 <%=Request.Form("patches2")%> ">
<%=Request.Form("patches2state")%> ">
[+] Inlay Activity: <%=Request.Form("patches1activity")%> "> [+] Inlay Activity: <%=Request.Form("patches2activity")%> ">
[+] Wording: <%=Request.Form("patches1wording")%> "> [+] Wording: <%=Request.Form("patches2wording")%> ">
[+] Wording Color: <%=Request.Form("patches1wordingcolor")%> "> [+] Wording Color: <%=Request.Form("patches2wordingcolor")%> ">
[+] Worded Patch #3 <%=Request.Form("patches3")%> ">
<%=Request.Form("patches3state")%> "> 		[+] Worded Patch #4 <%=Request.Form("patches4")%> ">
<%=Request.Form("patches4state")%> ">
[+] Inlay Activity: <%=Request.Form("patches3activity")%> "> [+] Inlay Activity: <%=Request.Form("patches4activity")%> ">
[+] Wording: <%=Request.Form("patches3wording")%> "> [+] Wording: <%=Request.Form("patches4wording")%> ">
[+] Wording Color: <%=Request.Form("patches3wordingcolor")%> "> [+] Wording Color: <%=Request.Form("patches4wordingcolor")%> ">
[+] Chenille Color: <%=Request.Form("chenillecolor")%> "> [+] More Options Selected: <%=Request.Form("options")%> ">
[+] Chain Color: <%=Request.Form("chaincolor")%> ">    
[+] Felt Color: <%=Request.Form("feltcolor")%> ">    
     

Size
[+] Jacket Size: <%=Request.Form("size")%> ">
 
<% Dim TotalCost Dim ActivityCount Dim ActivityBarCount Dim InlayCount Dim DoubleCount Dim ChampCount Dim StateCount Dim LetterCount Dim Tax ActivityCount = 0 ActivityBarCount = 0 ChampCount = 0 StateCount = 0 TotalCost = 0 InlayCount = 0 DoubleCount = 0 LetterCount = Len(Request.Form("chenilleletter")) If LetterCount <> 0 Then DoubleCount = DoubleCount + 1 End If If Request.Form("activities1") <> "" Then ActivityCount = ActivityCount + 1 ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar1") End If If Request.Form("activities2") <> "" Then ActivityCount = ActivityCount + 1 ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar2") End If If Request.Form("activities3") <> "" Then ActivityCount = ActivityCount + 1 ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar3") End If If Request.Form("activities4") <> "" Then ActivityCount = ActivityCount + 1 ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar4") End If If Request.Form("activities5") <> "" Then ActivityCount = ActivityCount + 1 ActivityBarCount = ActivityBarCount + Request.Form("activitiesbar5") End If If Request.Form("patches1") <> "" Then DoubleCount = DoubleCount + 1 If Request.Form("patches1") = "State" Then StateCount = StateCount + 1 End If If Request.Form("patches1") = "Champ" Then ChampCount = ChampCount + 1 End If End If If Request.Form("patches2") <> "" Then DoubleCount = DoubleCount + 1 If Request.Form("patches2") = "State" Then StateCount = StateCount + 1 End If If Request.Form("patches2") = "Champ" Then ChampCount = ChampCount + 1 End If End If If Request.Form("patches3") <> "" Then DoubleCount = DoubleCount + 1 If Request.Form("patches3") = "State" Then StateCount = StateCount + 1 End If If Request.Form("patches3") = "Champ" Then ChampCount = ChampCount + 1 End If End If If Request.Form("patches4") <> "" Then DoubleCount = DoubleCount + 1 If Request.Form("patches4") = "State" Then StateCount = StateCount + 1 End If If Request.Form("patches4") = "Champ" Then ChampCount = ChampCount + 1 End If End If If Request.Form("patches5") <> "" Then DoubleCount = DoubleCount + 1 If Request.Form("patches5") = "State" Then StateCount = StateCount + 1 End If If Request.Form("patches5") = "Champ" Then ChampCount = ChampCount + 1 End If End If InlayCount = ActivityCount + ActivityBarCount If Request.Form("chenillefirst") <> "" Then DoubleCount = DoubleCount + 1 End If If Request.Form("chenillelast") <> "" Then DoubleCount = DoubleCount + 1 End If If Request.Form("chenilleyear") <> "" Then InlayCount = InlayCount + 1 End If If Request.Form("chenilleright") <> "" Then DoubleCount = DoubleCount + 1 End If If Request.Form("chenilleleft") <> "" Then DoubleCount = DoubleCount + 1 End If DoubleCount = DoubleCount + InlayCount %> <% TotalCost = TotalCost + GetPrice("BasicJacket") %> <% If Request.Form("chenillefirst") <> "" Then TotalCost = TotalCost + GetPrice("FirstName") End If %> <% If Request.Form("chenillelast") <> "" Then TotalCost = TotalCost + GetPrice("LastName") End If %> <% If LetterCount > 1 Then TotalCost = TotalCost + GetPrice("DoubleLetter") End If If LetterCount = 1 Then TotalCost = TotalCost + GetPrice("Letter") End If %> <% If Request.Form("chenilleright") <> "" Then TotalCost = TotalCost + GetPrice("ShoulderScript") End If %> <% If Request.Form("chenilleleft") <> "" Then TotalCost = TotalCost + GetPrice("ShoulderScript") End If %> <% TotalCost = TotalCost + (GetPrice("Inlays") * InlayCount) %> <% TotalCost = TotalCost + (GetPrice("Champ") * ChampCount) %> <% TotalCost = TotalCost + (GetPrice("State") * StateCount) %> <% TotalCost = TotalCost + (GetPrice("DoubleFelt") * DoubleCount) %> <% Tax = RoundIt(TotalCost * (GetPrice("Tax"))) %>
ItemQTYCostTotal
Basic Jacket1$<%=GetPrice("BasicJacket")%>$<%=GetPrice("BasicJacket")%>
First Name<%If Request.Form("chenillefirst") <> "" Then%>1<%End If%>$<%=GetPrice("FirstName")%>$<%If Request.Form("chenillefirst") <> "" Then%><%=GetPrice("FirstName")%><%Else%>0.00<%End If%>
Last Name<%If Request.Form("chenillelast") <> "" Then%>1<%End If%>$<%=GetPrice("LastName")%>$<%If Request.Form("chenillelast") <> "" Then%><%=GetPrice("LastName")%><%Else%>0.00<%End If%>
<%If LetterCount > 1 Then%>Double <%End If%>Letter<%If LetterCount > 0 Then%>1<%Else%>0<%End If%>$<%If LetterCount > 1 Then%><%=GetPrice("DoubleLetter")%><%Else%><%=GetPrice("Letter")%><%End If%>$<%If LetterCount > 1 Then%><%=GetPrice("DoubleLetter")%><%Else%><%If LetterCount > 0 Then%><%=GetPrice("Letter")%><%Else%>0.00<%End If%><%End If%>
Right Shoulder Script Name<%If Request.Form("chenilleright") <> "" Then%>1<%ELSE%>0<%End If%>$<%=GetPrice("ShoulderScript")%>$<%If Request.Form("chenilleright") <> "" Then%><%=GetPrice("ShoulderScript")%><%Else%>0.00<%End If%>
Left Shoulder Script Name<%If Request.Form("chenilleleft") <> "" Then%>1<%ELSE%>0<%End If%>$<%=GetPrice("ShoulderScript")%>$<%If Request.Form("chenilleleft") <> "" Then%><%=GetPrice("ShoulderScript")%><%Else%>0.00<%End If%>
Inlays<%=InlayCount%>$<%=GetPrice("Inlays")%>$<%=RoundIt(GetPrice("Inlays") * InlayCount)%>
Champ Patch<%=ChampCount%>$<%=GetPrice("Champ")%>$<%=RoundIt(GetPrice("Champ") * ChampCount)%>
State Patch<%=StateCount%>$<%=GetPrice("State")%>$<%=RoundIt(GetPrice("State") * StateCount)%>
Double Felt<%=DoubleCount%>$<%=GetPrice("DoubleFelt")%>$<%=RoundIt(GetPrice("DoubleFelt") * DoubleCount)%>
Sub-Total$<%=RoundIt(TotalCost)%>
Tax (<%=GetPrice("Tax")*100%>%)$<%=Tax%>
Total$<%=RoundIt(TotalCost + Tax)%>
Please check the configuration.


Student Name



Address



City



State



Zip



Phone



Email



Credit Card Type



Credit Card Number



Credit Card Expiration Date

Credit Card 3-Digit Verification Number

School


">
<%DoFooter%> <% Recordset1.Close() Set Recordset1 = Nothing %>