<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form1") Then MM_editConnection = MM_TWCorrespond_STRING MM_editTable = "CLTshirts" MM_editRedirectUrl = "order-success.asp" MM_fieldsStr = "Des1NavyS|value|Des1RoyalS|value|Des1NavyM|value|Des1RoyalM|value|Des1NavyL|value|Des1RoyalL|value|Des1NavyXL|value|Des1RoyalXL|value|Des1NavyXXL|value|Des1RoyalXXL|value|Des2NavyS|value|Des2RoyalS|value|Des2NavyM|value|Des2RoyalM|value|Des2NavyL|value|Des2RoyalL|value|Des2NavyXL|value|Des2RoyalXL|value|Des2NavyXXL|value|Des2RoyalXXL|value|Des3NavyS|value|Des3RoyalS|value|Des3NavyM|value|Des3RoyalM|value|Des3NavyL|value|Des3RoyalL|value|Des3NavyXL|value|Des3RoyalXL|value|Des3NavyXXL|value|Des3RoyalXXL|value|firstname|value|surname|value|address|value|address2|value|city|value|postcode|value|county|value|country|value|email|value|payment|value|comments|value" MM_columnsStr = "Des1NavyS|',none,''|Des1RoyalS|',none,''|Des1NavyM|',none,''|Des1RoyalM|',none,''|Des1NavyL|',none,''|Des1RoyalL|',none,''|Des1NavyXL|',none,''|Des1RoyalXL|',none,''|Des1NavyXXL|',none,''|Des1RoyalXXL|',none,''|Des2NavyS|',none,''|Des2RoyalS|',none,''|Des2NavyM|',none,''|Des2RoyalM|',none,''|Des2NavyL|',none,''|Des2RoyalL|',none,''|Des2NavyXL|',none,''|Des2RoyalXL|',none,''|Des2NavyXXL|',none,''|Des2RoyalXXL|',none,''|Des3NavyS|',none,''|Des3RoyalS|',none,''|Des3NavyM|',none,''|Des3RoyalM|',none,''|Des3NavyL|',none,''|Des3RoyalL|',none,''|Des3NavyXL|',none,''|Des3RoyalXL|',none,''|Des3NavyXXL|',none,''|Des3RoyalXXL|',none,''|firstname|',none,''|surname|',none,''|address|',none,''|address2|',none,''|city|',none,''|postcode|',none,''|county|',none,''|country|',none,''|email|',none,''|payment|',none,''|comments|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim CLTshirts__MMColParam CLTshirts__MMColParam = "1" If (Request.QueryString("ID") <> "") Then CLTshirts__MMColParam = Request.QueryString("ID") End If %> <% Dim CLTshirts Dim CLTshirts_numRows Set CLTshirts = Server.CreateObject("ADODB.Recordset") CLTshirts.ActiveConnection = MM_TWCorrespond_STRING CLTshirts.Source = "SELECT * FROM CLTshirts WHERE ID = " + Replace(CLTshirts__MMColParam, "'", "''") + "" CLTshirts.CursorType = 0 CLTshirts.CursorLocation = 2 CLTshirts.LockType = 1 CLTshirts.Open() CLTshirts_numRows = 0 %> ToffeeWeb - Merchandise

Order Your Everton-in-Europe T-Shirts Today!
We're almost sold out of our limited-run series of T-shirts so to get your hands on one you have to order now!

You can join the Euro fever with the special ToffeeWeb European Tour T-Shirt emblazoned with the proud slogan, "Everton Are Back!" We still have a few of these shirts left in stock in either elegant navy blue or traditional royal blue.

Numbers are limited, especially in navy blue, so order now!

DESIGN 2 - £17.00 / $25.00*
Navy or royal blue
DESIGN 3 - £17.00 / $25.00*
Navy or royal blue

"Everton Are Back!
European Tour, 2005/6"

"Is this the way to Barcelona?
Everton FC European Tour, 2005/6"

NB: The colors shown are merely representative of navy and royal blue and may not match the final product exactly. Designs will be screen printed in white on high-quality Hanes 100% cotton, pre-shrunk garments.

Shirts are available in the following adult sizes while stocks last: S, M, L, XL and XXL

*Prices and Payment

Ordering from the UK
All shirts are offered at £17.00 (including postage and packaging for domestic UK addresses) for customers paying by cheque, money order or PayPal in Pounds Sterling.

Ordering from the US
Because of the unfavourable Dollar to Stirling exchange rate, all shirts are offered at $25.00 (including postage and packaging for domestic US addresses) for customers paying in $US by PayPal, by cheque or money order.

Ordering from overseas
International customers can provide payment in either Pounds Sterling or $US by cheque, money order or PayPal or in Euros if paying by PayPal. Note: Orders shipped internationally (outside the US and UK) will carry a small surcharge to cover the extra postage.

You will receive a confirmation request of your order and a billing invoice by e-mail prior to shipping so please ensure that the e-mail address you provide is typed correctly.

Place Your Order

Step 1 - Create your order
Design 2 ("Everton Are Back") — Navy Blue   Design 2 — ("Everton Are Back") Royal Blue
Small    Qty:    Small    Qty: 
Medium    Qty:    Medium    Qty: 
Large     Sold Out   Large    Sold Out
X-Large    Qty:    X-Large    Qty: 
XX-Large   Qty:    XX-Large   Qty: 
Design 3 — ("Is this the way...") Navy Blue   Design 3 — ("Is this the way...") Royal Blue
Small    Sold Out   Small    Sold Out
Medium    Qty:    Medium    Qty: 
Large    Qty:    Large    Qty: 
X-Large    Qty:    X-Large    Qty: 
XX-Large   Qty:    XX-Large   Qty: 

Step 2 - Your details
First Name:  
Last Name:  
Address (line 2):   
City / Town:   Post Code:
E-mail address:  
Confirmation of your order will be sent via e-mail so please ensure you enter your address correctly
Anticipated method of payment:  

Special instructions / Comments:

Remember, no payment is due now. We will bill you prior to shipping. Note also that we may not be able to provide you with your first choice of design, color or size depending on when you order and how high demand has been before you placed your order. We will contact you with alternate options in that event.

<% CLTshirts.Close() Set CLTshirts = Nothing %>