<%@ Language=VBScript %> Etched Silicone Wristbands <% Response.Expires = -1500 %> <% lnOrdno=SESSION("order") If isempty(lnordno) then lnordno=0 End if %>

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

Small Quantity - No Set-up fee
NO DIE CHARGE!
Up to 16 characters per band, each band can have different text, names, etc... HAVE FUN!!!

Pricing
1 to 5: $5.00 each
6 to 24: $3.00 each
25 to 49: $2.00 each
50 to 99: $1.75 each
100 to 249: $1.50 each
250 to 999: $1.25 each
1000 or more: $1.00 each
Shipping (any quantity): $6.00 per order via UPS

One side only (up to 16 characters)
2nd Side (up to 16 characters) - Add $1 per
<% ldcdt=date ldodt=dateadd("d",date,2) lddays=datepart("w",date,1) IF lddays < 5 Then ldsdt=ldodt End if IF lddays=5 Then ldsdt=dateadd("d",date,4) End if IF lddays=6 Then ldsdt=dateadd("d",date,4) End if IF lddays=7 Then ldsdt=dateadd("d",date,3) End if lcoutput="Orders received today will ship from Tulsa on "&ldsdt response.write lcoutput %>
(Please allow UPS ship times to your state)

No Hidden Charges (quantity x cost each, plus $6)

Email Order information:
in addition to your desired text and wristband color,
Please include Name, Phone Number and Shipping Instructions

Missing that human touch? 
A well informed customer service representative will answer your questions and help with your order. 918-834-4444

<% set conn = Server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\home\britt2\process\wassco.mdb;" strSQLquery="SELECT * FROM prod_img WHERE prod_id=5 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 conn.close set conn = nothing %>