<%response.Write TRIM(r1("name"))%> Order Form

<%@ 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&"

	Size	Qty	Unit Price	Color	" 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 shopping						Order 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= "

<% 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")&"
Quantity	Price
" 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
White	White
Black	Black
Red	Red
Lime Green (PMS802)	Lime Green (PMS802)
Kelly Green (PMS354)	Kelly Green (PMS354)
Hunter Green (PMS342)	Hunter Green (PMS342)
Light Blue	Light Blue
Royal Blue	Royal Blue
Navy Blue	Navy Blue
Purple	Purple
Orange	Orange
Bright Orange	Bright Orange
Grey	Grey
Maroon	Maroon
Yellow (PMS116)	Yellow (PMS116)
Pink	Pink
Clear	Clear
Glow In The Dark (Green)	Glow In The Dark (Green)
Black/Gold	Black/Gold
Black/Orange	Black/Orange
Black/Royal Blue	Black/Royal Blue
Black/Green	Black/Green
Black/Red	Black/Red
Black/White	Black/White
White/Yellow	White/Yellow
White/Royal Blue	White/Royal Blue
White/Green	White/Green
White/Hunter Green	White/Hunter Green
White/Maroon	White/Maroon
White/Red	White/Red
White/Navy Blue	White/Navy Blue
White/Purple	White/Purple
Pink/Baby Blue	Pink/Baby Blue
Red/Gold	Red/Gold
Red/Green	Red/Green
Red/Royal Blue	Red/Royal Blue
Royal Blue/Green	Royal Blue/Green
Royal Blue/Gold	Royal Blue/Gold
Royal Blue/Orange	Royal Blue/Orange
Gold/Green	Gold/Green
Gold/Maroon	Gold/Maroon
Gold/Navy Blue	Gold/Navy Blue
Gold/Purple	Gold/Purple
Red/White/Blue	Red/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"))&"

"&TRIM(ri("alt_text"))&"

" Else lcidisp2=" "&TRIM(ri("alt_text"))&"

"&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 %>