Morro Bay Wine Sellers

<% Action=request("Action") FirstName=request("FirstName") LastName=request("LastName") EMail=request("EMail") Address=request("Address") City=request("City") State=request("State") Zip=request("Zip") Phone=request("Phone") Prefer=request("Prefer") If Action = "Yes!" Then If FirstName="" And LastName="" And EMail="" And Address="" And City="" And State="" And Zip="" And Phone="" And Prefer="" Then Action = "" End If End If If Action = "Yes!" Then If FirstName = "" And ErrorMsg = "" Then Action = "" FirstNameError="Y" ErrorMsg = "Your First Name is required to join." End If If LastName = "" And ErrorMsg = "" Then Action = "" LastNameError="Y" ErrorMsg = "Your Last Name is required to join." End If If Email = "" And ErrorMsg = "" Then Action = "" EmailError="Y" ErrorMsg = "Your Email Address is required to join." ElseIf ErrorMsg = "" Then x = replace(email, "'", "") email = replace(x, " ", "") ' -- Check for Valid EMail Addresses -- If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False If ValidFlag = False then Action = "" EmailError="Y" ErrorMsg = "Please enter a Valid Email Address." End If End If If Address = "" And ErrorMsg = "" Then Action = "" AddressError="Y" ErrorMsg = "Your Address is required to join." End If If City = "" And ErrorMsg = "" Then Action = "" CityError="Y" ErrorMsg = "Your City is required to join." End If If State = "" And ErrorMsg = "" Then Action = "" StateError="Y" ErrorMsg = "Your State is required to join." End If If Zip = "" And ErrorMsg = "" Then Action = "" ZipError="Y" ErrorMsg = "Your Zip Code is required to join." End If If Phone = "" And ErrorMsg = "" Then Action = "" PhoneError="Y" ErrorMsg = "Your Phone Number is required to join." End If If Prefer = "" And ErrorMsg = "" Then Action = "" PreferError="Y" ErrorMsg = "Please select your Wine Preference." End If End If If Action = "Yes!" Then sMessageText = "Wine Club Member Information" & vbCrLf & vbCrLf sMessageText = sMessageText & "First Name: " & FirstName & vbCrLf sMessageText = sMessageText & "Last Name: " & LastName & vbCrLf sMessageText = sMessageText & "Email Address: " & EMail & vbCrLf sMessageText = sMessageText & "Address: " & Address & vbCrLf sMessageText = sMessageText & "City: " & City & vbCrLf sMessageText = sMessageText & "State: " & State & vbCrLf sMessageText = sMessageText & "Zip: " & Zip & vbCrLf sMessageText = sMessageText & "Phone: " & Phone & vbCrLf & vbCrLf sMessageText = sMessageText & "Wine Preference: " & Prefer & vbCrLf Set objCDOMail = CreateObject("CDONTS.NewMail") objCDOMail.From = "info@morrobaywineseller.com" objCDOMail.To = "info@morrobaywineseller.com" objCDOMail.Subject = "New Wine Clup Member" objCDOMail.Body = sMessageText objCDOMail.Cc = "" objCDOMail.BCc = "" objCDOMail.Importance = 2 '(0=Low, 1=Normal, 2=High) objCDOMail.Send Set objCDOMail = Nothing End If %> Morro Bay Wine Sellers

<%If Action = "" Then%>

Seller-2-Cellar Wine Club

<%If ErrorMsg = "" Then%>

Welcome to the Seller-2-Cellar Wine Club! This Wine Club offers you an excellent way to discover new favorites and build your cellar with exceptional, unique wines not often found in your local wine outlets.

Chris and John are constantly on the look out for special wines for your club that you will be proud to share with your friends and family.

We ship out two bottles of wine every month for your enjoyment via UPS ground service. Deliveries will be made during regular business hours Monday thru Friday, and will require an adult signature, so we recommend that you use an address at which someone will be there to receive it.

Note – due to federal regulations, Morro Bay Wine Seller may only ship to the following states: Alaska, California, Colorado, Connecticut, Washington DC, Florida, Georgia, Hawaii, Idaho, Illinois, Iowa, Louisiana, Minnesota, Missouri, Nebraska, New Hampshire, North Carolina, North Dakota, New Mexico, Nevada, New York, Oregon, South Carolina, Texas, Virginia, Washington, West Virginia, Wisconsin, and Wyoming. All other states will require special arrangements. Please contact us to for more details.

<%End If%> Step One: Please fill out the following information to begin processing of your first shipment. We'll call to make payment arrangements; or call us at (805) 772-8388 and we'll started immediately!

Step Two: Your delivery arrives. And…

Step Three: Enjoy. It’s just that simple!

<%If len(ErrorMsg) Then%> ** <%=ErrorMsg%> **
<%End If%>

<%If PreferError ="Y" Then%> <%End If%>

<%If FirstNameError="Y" Then%> First Name: <%Else%> First Name: <%End If%>	>
<%If LastNameError="Y" Then%> Last Name: <%Else%> Last Name: <%End If%>	>
<%If EmailError="Y" Then%> E-Mail: <%Else%> E-Mail: <%End If%>	>
<%If AddressError="Y" Then%> Address: <%Else%> Address: <%End If%>	>
<%If CityError="Y" Then%> City: <%Else%> City: <%End If%>	>
<%If StateError="Y" Then%> State: <%Else%> State: <%End If%>	>
<%If ZipError="Y" Then%> Zip Code: <%Else%> Zip Code: <%End If%>	>
<%If ZipError="Y" Then%> Phone #: <%Else%> Phone #: <%End If%>	>
What is your Wine Club Preference?
Prospect Club $28.95
Expedition Club $39.95
Conquest Club $59.95

Payment accepted: MasterCard, Amex and Visa. Sorry, no COD shipments. A Receipt will accompany your order.

Thank you for becoming a Seller-2-Cellar Wine Club Member!

<%Else%>

<%End If%>