<%@ Language=VBScript %> <% Response.Expires = -1500 %> <% lnOrdno=SESSION("order") llOrderExist=TRUE lcdispord="" lcSize=request.Form("size") lcColor1=request.Form("requiredcolor") lcText1=request.Form("requiredtext1") lcText2=request.Form("text2") lcQty=request.Form("qty") lcAction=request.Form("btnaction") IF VarType(lcAction)=0 Then lcAction=request.QueryString("xxaction") End If lcComment=TRIM(request.Form("comments")) IF isnull(lcComment) or LEN(lcComment)=0 Then lcComment=" " End If lccomment=REPLACE(lccomment,"'","`") IF isnull(lcText1) or LEN(lcText1)=0 Then lcText1=" " End If lcText1=REPLACE(lcText1,"'","`") IF isnull(lcColor1) or LEN(lcColor1)=0 Then lcColor1=" " End If lccolor1=REPLACE(lccolor1,"'","`") IF isnull(lcText2) or LEN(lctext2)=0 Then lcText2="None" End If lcText2=REPLACE(lcText2,"'","`") set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\home\britt2\process\wassco.mdb;" lnshiptot=0 getprod=request.querystring("prod_id") 'response.Write "getprod="&getprod&"" 'response.Write "getprod vartype="&vartype(getprod)&"" IF vartype(getprod)=0 Then getprod=request.Form("prod_id") End If getprod=cint(getprod) 'response.Write "getprod="&getprod&"" 'response.Write "vartype(getprod)="&vartype(getprod)&"" lnprodid=CINT(getprod) IF LEN(lcAction)>0 Then 'IF lnOrdno>0 Then ' Check for Order Insert Order Master if needed If isempty(lnordno) then strSQLquery="SELECT order_id FROM ord_mstr ORDER BY order_id" set ro = Server.CreateObject("ADODB.Recordset") ' ro.Open strSQLQuery, conn ' DO WHILE NOT ro.eof ' lnnextord=ro("order_id") ' ro.movenext ' LOOP ' lnordno=lnnextord+1 ro.open "ord_mstr", conn, 1 , 3, 2 'ro.close ro.addnew ro("order_date")=date&" "&time ro("ip")=request.servervariables("REMOTE_ADDR") lnordno=ro("order_id") ro.update SESSION("order")=lnordno llOrderExist=FALSE ro.close Else strSQLquery="SELECT * FROM ord_mstr WHERE order_id="&lnordno set ro = Server.CreateObject("ADODB.Recordset") ro.Open strSQLQuery, conn If ro("invno")>0 AND ro("cust_id")>0 Then ro.close conn.close session("order")=0 session.abandon response.redirect "http://www.britt2.com" End If End if ' Determine Price and Shipping IF llorderexist=TRUE Then strSQLquery="SELECT * FROM ord_dtl WHERE order_id="&lnordno&" AND prod_id="&lnProdId set r2 = Server.CreateObject("ADODB.Recordset") r2.Open strSQLQuery, conn lnTotQty=clng(lcQty) DO WHILE NOT r2.eof lnTotQty=lnTotQty+r2("qty") r2.MoveNext LOOP r2.close Else lnTotQty=clng(lcQty) End If strSQLquery="SELECT * FROM prod_dtl WHERE prod_id="&lnProdId 'response.Write strsqlquery 'response.Write "
" set rd = Server.CreateObject("ADODB.Recordset") rd.Open strSQLQuery, conn DO WHILE NOT rd.EOF 'response.Write "rd.min="&rd("min")&"
" 'response.Write "VarType(rd.min)="&VarType(rd("min"))&"
" 'response.Write "rd.max="&rd("max")&"
" 'response.Write "VarType(rd.max)="&VarType(rd("max"))&"
" 'response.Write "lnTotQty="&lnTotQty&"
" 'response.Write "VarType(lnTotQty)="&VarType(lnTotQty)&"
" 'response.Write "rd.price="&rd("price")&"
" 'response.Write "lnTotQty>=rd('min')="&(lnTotQty>=rd("min"))&"
" 'response.Write "lnTotQty<=rd('max')="&(lnTotQty<=rd("max"))&"
" IF lnTotQty>=rd("min") AND lnTotQty<=rd("max") Then lnPrice=rd("price") 'response.Write "lnprice="&lnprice End If rd.MoveNext LOOP rd.close set rd = nothing IF llorderexist=TRUE Then strSQLquery="SELECT * FROM ord_dtl WHERE order_id="&lnordno&" AND prod_id="&getprod set r2 = Server.CreateObject("ADODB.Recordset") r2.Open "ord_dtl", conn, 1, 3, 2 DO WHILE NOT r2.eof IF r2("order_id")=lnordno AND r2("prod_id")=getprod Then IF UCASE(r2("text2"))="NONE" or UCASE(r2("text2"))="N/A" Then IF r2("price")<>lnPrice Then r2("price")=lnprice r2.update End If Else IF r2("price")<>lnPrice+3 Then r2("price")=lnprice+3 r2.update End If End If End If r2.movenext LOOP r2.close set r2 = nothing End If IF LEN(TRIM(lcText2))>0 AND UCASE(lcText2)<>"N/A" AND UCASE(lcText2)<>"NONE" Then lnPrice=lnPrice+3 End If ' response.Write "lnprice="&lnprice ' response.Write "
" ' test strSQLquery="SELECT * FROM prod_ship WHERE prod_id="&lnProdId set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, conn DO WHILE NOT rs.EOF IF lnTotQty==rs("ship_min") AND rs("ship_type")="NET" Then lnShip=rs("ship_amt") End If IF ship_type="PER" AND lntotQty>=rs("ship_min") Then lnMult=ROUND(lnTotQty/rs("per_div")) lnship=lnmult*rs("ship_amt") End If rs.MoveNext LOOP rs.close set rs = nothing lnshiptot=lnshiptot+lnship ' Insert items into ord_dtl table lnTot=lcQty*lnPrice StrSQLCmd="Insert into Ord_dtl (order_id,prod_id,color1,color2,color3,color4,color_opt,qty,bandsize,text1,text2,text3,sub_tot,price,comments) values ("&lnOrdNo&","&lnprodid&",'"&lcColor1&"',' ',' ',' ',' ',"&lcQty&",'"&lcSize&"','"&lcText1&"','"&lcText2&"','N/A',"&CCUR(lnTot)&","&CCUR(lnPrice)&",'"&lcComment&"')" 'StrSQLCmd="(order_id,prod_id,color1,color2,color3,color4,color_opt,qty,bandsize,text1,text2,text3,sub_tot,price) values ("&lnOrdNo&","&lnprodid&",'"&lcColor1&"','"&lcColor2&"','"&lcColor3&"','"&lcColor4&"','"&lcColor_opt&"',"&lnQty&",'"&lcSize&"','"&lcText1&"','"&lcText2&"','"&lcText3&"',"&CCUR(lnTot)&","&CCUR(lnPrice)&")" 'response.Write StrSQLCmd IF UCASE(lcAction)<>"REMOVE" Then SET r2 = Server.CreateObject("ADODB.Recordset") r2.open StrSQLCmd, conn, , 3, 1 End If 'IF llorderexist=FALSE Then 'StrSQLCmd="Insert into Ord_mstr (order_id,order_date,ip,comment) values ("&lnOrdNo&",'"&date&" "&time&"','"&request.servervariables("REMOTE_ADDR")&"','"&lcComment&"')" 'ro.open strSQLcmd, conn 'ro.close 'End IF IF UCASE(lcAction)="SAVE AND CHECKOUT" Then response.Redirect "https://securecyberserver.com/wassco/checkout.asp" End If ' format the current items for display strSQLQuery = "SELECT order_id,ord_dtl.prod_id,detail_id,qty,bandsize,sub_tot,text1,text2,text3,color1,color2,color3,color4,color_opt,price,prod_mstr.name,prod_mstr.page from ord_dtl, prod_mstr WHERE order_id="&lnordno&" AND prod_mstr.prod_id=ord_dtl.prod_id" ' response.Write strSQLQuery set rd = Server.CreateObject("ADODB.Recordset") rd.Open strSQLQuery, conn lcDispOrd="" lcdispord=lcdispord&"" lnordtot=0 DO while not rd.eof lcdispord=lcdispord&"" lnordtot=lnordtot+(rd("price")*rd("qty")) rd.movenext LOOP lcdispord=lcdispord&"" lcdispord=lcdispord&"
 SizeQtyUnit PriceColor" IF getprod=5 Then lcdispord=lcdispord&"Text" End If lcdispord=lcdispord&"" IF getprod=5 Then lcdispord=lcdispord&"2nd Side Text" End IF lcdispord=lcdispord&"Sub Total

Remove"&rd("bandsize")&""&rd("qty")&"$"&formatnumber(rd("price"),2)&""&rd("color1")&""&rd("text1")&"" IF rd("text2")<>"None" AND UCASE(rd("text2"))<>"N/A" AND len(rd("text2"))>0 Then lcdispord=lcdispord&rd("text2") End If lcdispord=lcdispord&"$"&formatnumber(rd("price")*rd("qty"),2)&"
Shipping Total$"&formatnumber(lnshiptot,2)&"
Click here to Checkout or use the links below to continue shoppingOrder Total$"&formatnumber(lnordtot+lnshiptot,2)&"
" End If strSQLQuery = "SELECT * FROM prod_mstr WHERE prod_id= "&getprod set r1 = Server.CreateObject("ADODB.Recordset") r1.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_dtl WHERE prod_id= "&getprod&" ORDER BY min" set rd = Server.CreateObject("ADODB.Recordset") rd.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_color WHERE prod_id= "&getprod set rc = Server.CreateObject("ADODB.Recordset") rc.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_img WHERE prod_id= "&getprod set ri = Server.CreateObject("ADODB.Recordset") ri.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM prod_ship WHERE prod_id= "&getprod set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQLQuery, conn strSQLQuery = "SELECT * FROM company WHERE id=1" set rm = Server.CreateObject("ADODB.Recordset") rm.Open strSQLQuery, conn %> <%response.Write TRIM(r1("name"))%> Order Form
" Else %> <% laadultqty="" laadultqty=laadultqty&"" layouthqty=layouthqty&"" laprices= "

Wassco Corporation (est. 1992)   
515 S. 25th West Ave, Tulsa, OK 74127  
918-834-4444 phone ; 918-832-8946 fax   

<% If r1.RecordCount = 0 then Response.write "There are no products available" response.Write "
" DO while not rd.eof laprices=laprices& "" laadultqty=laadultqty&"" layouthqty=layouthqty&"" rd.MoveNext loop laprices=laprices& "
"&r1("name")&"
QuantityPrice
" IF rd("max")>100000 Then laprices=laprices& rd("min")&" and over" Else laprices=laprices& rd("min")&" - "&rd("max") End If laprices=laprices& "" IF rd("price")=0 Then laprices=laprices& "Call for Quote" Else laprices=laprices&"$"&formatnumber(rd("price"),2) End If laprices=laprices& "
" laadultqty=laadultqty&"" layouthqty=layouthqty&"" 'laprices=laprices& "" 'laprices=laprices& "Miss that personal Touch?
Call us:


" 'laprices=laprices& "918-834-4444

" 'laprices=laprices& "One of our friendly and knowledgeable representatives would be happy to assist you with your order!
" 'laprices=laprices& "" lcSpinner="" %> >
<% if len(lcdispord)>0 Then %> <% End If %>
>
<%response.Write TRIM(r1("name"))%>
We will process your order right away.
Please double check your <% If lnprodid=5 then%> text, <% End if %> size and color selections before submitting.

Placing your order online is Fast, simple and secure. However, if you would prefer to print an order form and fax it to us you may click here to do so.
<% response.write r1("descript") %> <% if lnprodid=7 then %>

This Form is for ordering Blank and In-Stock bracelets only. If you would like text on your bracelets Click Here.
<% End If %>
Current Order
<% response.write lcdispord %>
Select Quantity, Size, <% if lnprodid=5 then %> Text <% end if %> and Color to Order. After saving you will be returned to this page to add additional colors, sizes, or text to your order.
<% IF getprod=5 Then %> <% End If %>
Size: Quantity: <% response.Write lcSpinner %> Text: <% IF getprod=5 Then %> Color <% Else %> Describe <% End If %>
<% IF getprod=5 Then %> 2nd Side Text(Add $1.00 per Band): <%End If%> <% IF getprod=5 Then %> <%End If%>
Additional Comments/Instructions
In Stock Colors
WhiteWhite
BlackBlack
RedRed
Lime Green (PMS802)Lime Green (PMS802)
Kelly Green (PMS354)Kelly Green (PMS354)
Hunter Green (PMS342)Hunter Green (PMS342)
Light BlueLight Blue
Royal BlueRoyal Blue
Navy BlueNavy Blue
PurplePurple
OrangeOrange
Bright OrangeBright Orange
GreyGrey
MaroonMaroon
Yellow (PMS116)Yellow (PMS116)
PinkPink
ClearClear
Glow In The Dark (Green)Glow In The Dark (Green)
Black/GoldBlack/Gold
Black/OrangeBlack/Orange
Black/Royal BlueBlack/Royal Blue
Black/GreenBlack/Green
Black/RedBlack/Red
Black/WhiteBlack/White
White/YellowWhite/Yellow
White/Royal BlueWhite/Royal Blue
White/GreenWhite/Green
White/Hunter GreenWhite/Hunter Green
White/MaroonWhite/Maroon
White/RedWhite/Red
White/Navy BlueWhite/Navy Blue
White/PurpleWhite/Purple
Pink/Baby BluePink/Baby Blue
Red/GoldRed/Gold
Red/GreenRed/Green
Red/Royal BlueRed/Royal Blue
Royal Blue/GreenRoyal Blue/Green
Royal Blue/GoldRoyal Blue/Gold
Royal Blue/OrangeRoyal Blue/Orange
Gold/GreenGold/Green
Gold/MaroonGold/Maroon
Gold/Navy BlueGold/Navy Blue
Gold/PurpleGold/Purple
Red/White/BlueRed/White/Blue
Stock 4 Color Swirl (Royal Blue/Orange/Purple/White)Stock 4 Color Swirl (Royal Blue/Orange/Purple/White)
Stock 6 Color Verticle (Red/Royal Blue/White/Green/Purple/Black)Stock 6 Color Verticle (Red/Royal Blue/White/Green/Purple/Black)
<% strSQLquery="SELECT * FROM prod_img WHERE prod_id="&lnProdId&" ORDER BY img_order" set ri = Server.CreateObject("ADODB.Recordset") ri.Open strSQLQuery, conn %> <% icnt=0 DO WHILE NOT ri.eof icnt=icnt+1 If icnt=1 Then lcidisp1=""&TRIM(ri("alt_text"))&" " Else lcidisp2=""&TRIM(ri("alt_text"))&" " %> <% icnt=0 End If ri.movenext LOOP IF icnt=1 Then %> <% Else %> <% End if %>
<% response.write lcidisp1 response.write lcidisp2 %>
<% response.write lcidisp1 %>
<% response.write lcidisp1 response.write lcidisp2 %>
<% ri.close set ri = nothing %>
<% response.write r1("descript2") %>
<% End If %>