<%@ Language=VBScript %> <% Response.Expires = -1500 %> <% lnOrdno=SESSION("order") passedorder=request.querystring("ordno") If isempty(lnordno) then lnordno=passedorder End if set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\home\britt2\process\wassco.mdb;" If lnordno>0 then 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 set ro = nothing set conn = nothing session("order")=0 session.abandon response.redirect "http://www.britt2.com" End If ro.close SET ro = nothing End if getprod=request.querystring("prod_id") IF cint(getprod)=0 OR cint(getprod)>4 then response.redirect "http://www.britt2.com" 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 - Silicone Wristbands

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&"$"&rd("price") 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& "" %>
>
<%response.Write TRIM(r1("name"))%>
We will process your order right away.
Please double check your text, 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") %>
Select Quantity to Order
<% IF getprod=5 or getprod=7 Then %> <% Else %> <% End If %> <% IF getprod=5 or getprod=7 Then %> <% Else %> <% End If %> <%If r1("colors")=4 then %> <% else %> <%end if %> <% If r1("prod_id")=4 OR r1("prod_id")=3 Then %> <% End If %> <% If r1("prod_id")=2 OR r1("prod_id")=3 Then %> <%end if %> <% If r1("text_allowed")=TRUE then %> <% End If %> <% If r1("2text_allow")=TRUE Then%> <% End If %> <% If r1("inside_text")=TRUE Then %> <% End If %>
ADULT - 210mm x 12mm x 2mm
YOUTH - 180mm x 12mm x 2mm
1st Color
PMS Color Chart
2nd Color
3rd Color
4th Color
Band Color
PMS Color Chart
Print Color
Multi-Color Option
Enter text for front of Band: <% IF r1("tooling")>0 Then IF getprod=1 or getprod=2 Then LcWrite= "( One time $"&CCUR(r1("tooling"))&" Tooling Charge" lcWrite=LcWrite&" )" Else LcWrite= "( One time $"&CCUR(r1("tooling"))&" Setup Charge" lcWrite=LcWrite&" )" End IF response.Write LcWrite End If %>
OPTIONAL - Text for other side: <% IF r1("sec_tool")>0 Then IF getprod=1 or getprod=2 Then LcWrite= "( One time $"&CCUR(r1("sec_tool"))&" Tooling Charge" IF r1("sec_tool_per")>0 Then lcWrite=LcWrite&" And "&r1("sec_tool_per")&" per band" End If lcWrite=LcWrite&" )" Else LcWrite= "( One time $"&CCUR(r1("sec_tool"))&" Setup Charge" IF r1("sec_tool_per")>0 Then lcWrite=LcWrite&" And "&r1("sec_tool_per")&" per band" End If lcWrite=LcWrite&" )" End IF response.Write LcWrite End If %>
OPTIONAL - Text for Inside of band: <% IF r1("thrd_tool")>0 Then IF getprod=1 or getprod=2 Then LcWrite= "( One time $"&CCUR(r1("thrd_tool"))&" Tooling Charge" IF r1("thrd_tool_per")>0 Then lcWrite=LcWrite&" And "&r1("thrd_tool_per")&" per band" End If lcWrite=LcWrite&" )" Else LcWrite= "( One time $"&CCUR(r1("thrd_tool"))&" Setup Charge" IF r1("thrd_tool_per")>0 Then lcWrite=LcWrite&" And "&r1("thrd_tool_per")&" per band" End If lcWrite=LcWrite&" )" End IF response.Write LcWrite End If %>
Additional Comments/Instructions
Upload A File to Wassco (EPS Font, logo, etc.)
<% response.write r1("descript2") %>
<% End If %>
<% rd.close r1.close rc.close rm.close ri.close conn.close set conn = nothing set ri = nothing set ro = nothing set rs = nothing set rd = nothing set r1 = nothing set rc = nothing set rm = nothing %>