<%@LANGUAGE="VBSCRIPT"%> <% If (CStr(Request("MM_insert")) <> "") Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Online Form" Mailer.FromAddress = "join@wallawallawineclub.com" Mailer.RemoteHost = "localhost" 'Mailer.RemoteHost = "mail.wallawallawineclub.com" Mailer.AddRecipient "Cassie J. Rothstrom", "cassie@innw.net" Mailer.Subject = "Join the Walla Walla Wine Club!" Mailer.BodyText = "Billing Address Name: "& Request("billing_address_name") Mailer.BodyText = "Billing Address: "& Request("billing_address") Mailer.BodyText = "Billing City: "& Request("billing_city") Mailer.BodyText = "Billing State: "& Request("billing_state") Mailer.BodyText = "Billing Zip: "& Request("billing_zip") Mailer.BodyText = "Billing Dayphone: "& Request("billing_dayphone") Mailer.BodyText = "Billing Email: "& Request("billing_email") Mailer.BodyText = "--------------------------------" Mailer.BodyText = "Ship to Address Name: "& Request("ship_to_address_name") Mailer.BodyText = "Ship to Address: "& Request("ship_to_address") Mailer.BodyText = "Ship to City: "& Request("ship_to_city") Mailer.BodyText = "Ship to State: "& Request("ship_to_state") Mailer.BodyText = "Ship to Zip: "& Request("ship_to_zip") Mailer.BodyText = "Ship to Dayphone: "& Request("ship_to_dayphone") Mailer.BodyText = "Ship to Email: "& Request("ship_to_email") Mailer.BodyText = "--------------------------------" Mailer.BodyText = "Gift Membership: "& Request("gift_membership") Mailer.BodyText = "Gift Message: "& Request("gift_message") Mailer.BodyText = "--------------------------------" Mailer.BodyText = "Bottles per Shipment: "& Request("bottles_per_shipment") Mailer.BodyText = "How Many Shipments: "& Request("how_many_shipments") Mailer.BodyText = "--------------------------------" Mailer.BodyText = "Credit Card Type: "& Request("bill_to_credit_card") Mailer.BodyText = "Credit Card Number: "& Request("credit_card_number") Mailer.BodyText = "Expire Month: "& Request("expire_month") Mailer.BodyText = "Expire Year: "& Request("expire_year") Mailer.BodyText = "--------------------------------" Mailer.BodyText = "Drivers License: "& Request("Drivers_License") Mailer.BodyText = "Drivers License State: "& Request("Drivers_License_state") Mailer.BodyText = "DOB Month: "& Request("dob_month") Mailer.BodyText = "DOB Day: "& Request("dob_day") Mailer.BodyText = "DOB Year: "& Request("dob_year") Mailer.SendMail end if %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & 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")) <> "") Then MM_editConnection = MM_wwwc_STRING MM_editTable = "members" MM_editRedirectUrl = "join_club2.html" MM_fieldsStr = "billing_address_name|value|billing_address|value|billing_city|value|billing_state|value|billing_zip|value|billing_dayphone|value|billing_email|value|ship_to_address_name|value|ship_to_address|value|ship_to_city|value|ship_to_state|value|ship_to_zip|value|ship_to_dayphone|value|ship_to_email|value|gift_membership|value|gift_message|value|bottles_per_shipment|value|how_many_shipments|value" MM_columnsStr = "billing_address_name|',none,''|billing_address|',none,''|billing_city|',none,''|billing_state|',none,''|billing_zip|',none,''|billing_dayphone|',none,''|billing_email|',none,''|ship_to_address_name|',none,''|ship_to_address|',none,''|ship_to_city|',none,''|ship_to_state|',none,''|ship_to_zip|',none,''|ship_to_dayphone|',none,''|ship_to_email|',none,''|gift_membership|',none,''|gift_message|',none,''|bottles_per_shipment|',none,''|how_many_shipments|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(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 If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & 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 %> <% set RS_main = Server.CreateObject("ADODB.Recordset") RS_main.ActiveConnection = MM_wwwc_STRING RS_main.Source = "SELECT * FROM members" RS_main.CursorType = 0 RS_main.CursorLocation = 2 RS_main.LockType = 3 RS_main.Open() RS_main_numRows = 0 %> Walla Walla Wine Club : Join the Club

Free Gift for Joining - Secure Online Shopping
Tasting notes written by our own wine raconteur, Wit Hartford.
Free Membership and Gift Item from www.wineaway.comOver 39 wineries, all producing ultra premium wines in limited distribution.Winemaker Information - Recipes for wine pairings.New Releases and hard-to-find wines right to your doorstep.Free Gift for Joining - Secure Online ShoppingMembers only!! Discounted Private Wine Cellar


>> This is a SECURE Server <<
 
To enjoy the wines of the Walla Walla Valley at home, become a member today!
• =Required
Billing Address
Name:
   •
Billing Address:
   •
City:
   •
State:   •
Zip:   •
Daytime Phone:   •
Email Address:   •
 
Ship to Address (if different from billing address)
Name:
Address:
City:
State:
Zip:
Daytime Phone:
Email Address:
 
Is this a Gift Membership?   Yes No
 
Gift message enclosure for initial delivery:
 
How many bottles per shipment?   •
You will receive 5 Shipments.
 
Billing
You will be billed for the cost of each shipment when your order is shipped.
Shipments will occur in November, February, April, June, and September.
We will notify you when your card is billed.
 
Credit Card:   •
Card Number:   •
Expiration Date:   •    •
 
Because you must be 21 years or older to purchase wine, please confirm your age by entering the following information:
Drivers License #:   •
Issuing State:   •
DOB:   •    •  Year:   •
 

**Wine may be sold and delivered only to persons who are at least 21 years old. By joining the Walla Walla Wine Club, you represent to us that you are at least 21 years old, and the person to whom your wine will be delivered is also at least 21 years old.

**The shipment of alcohol is restricted in some states. At this time we can ship to the following states: AK, CA, CO, DC, GA, HI, ID, IL, LA, MN, NB, NV, NH, NM, ND, OR, WA, WV, WI, & WY.

**We are unable to ship to post office boxes.

 

 
 
Home   |   About Us   |   Walla Walla Wines   |   Meet Wit Hartford   |   Club Benefits   |   Join The Club   |   Reorder Club Wines
 
Walla Walla Wine Club P.O. Box 2609, Walla Walla WA 99362 Phone: 509-526-7700 info@wallawallawineclub.com

 

 

  

<% RS_main.Close() %>