<% bOrder = False bOrderSent = False sDiscountMessage = " " If Trim(Request.Form("btnCalculate")) = "Calculate" Or Request.Form("hSubmitOrder") <> "" Then sGMember = Request.Form("chkGoldMember") Session("sGMember") = sGMember sJMember = Request.Form("chkJadeMember") Session("sJMember") = sJMember '1 iViognier = CInt(Request.Form("selViognier")) VB = CSng(Request.Form("VB")) VBST = VB * iViognier '2 Rhone Style Red iMelange = CInt(Request.Form("selMelange")) MB = CSng(Request.Form("MB")) MBST = MB * iMelange '3 iMourv = CInt(Request.Form("selMourv")) MO = CSng(Request.Form("MO")) MOST = MO * iMourv '4 iSyrah = CInt(Request.Form("selSyrah")) SB = CSng(Request.Form("SB")) SBST = SB * iSyrah '5 iPet = CInt(Request.Form("selPet")) PS = CSng(Request.Form("PS")) PSST = PS * iPet '6 iRSyrah = CInt(Request.Form("selRSyrah")) SR = CSng(Request.Form("SR")) SRST = SR * iRSyrah '7 iGrenache = CInt(Request.Form("selGrenache")) GB = CSng(Request.Form("GB")) GBST = GB * iGrenache '8 iZin = CInt(Request.Form("selZin")) ZB = CSng(Request.Form("ZB")) ZBST = ZB * iZin '9 iVRMed = CInt(Request.Form("selVRMed")) VRMB = CSng(Request.Form("VRMB")) VRMST = VRMB * iVRMed 'iGrenacheR = CInt(Request.Form("selGrenacheR")) 'GRB = CSng(Request.Form("GRB")) 'GRBST = GRB * iGrenacheR 'iRPet = CInt(Request.Form("selRPet")) ' RPS = CSng(Request.Form("RPS")) 'PRST = RPS * iRPet 'iCab = CInt(Request.Form("selCab")) 'CB = CSng(Request.Form("CB")) 'CBST = CB * iCab 'iRock = CInt(Request.Form("selRockBasin")) 'RB = CSng(Request.Form("RB")) 'RBST = RB * iRock iBottleTotal = iViognier + iMelange + iMourv + iSyrah + iPet + iRSyrah + iGrenache + iZin + iVRMed If sJMember = "on" Then discount = 0.85 sDiscountMessage = "*15% Jade level membership discount applies" sDiscountMessageTxt = "*15% Jade level membership discount applied." ElseIf sGMember = "on" Then discount = 0.8 sDiscountMessage = "*20% Gold level membership discount applies" sDiscountMessageTxt = "*20% Gold level membership discount applied." Else If iBottleTotal > 11 Then discount = 0.9 sDiscountMessage = "*Case discount applies:
  10% discount for " & iBottleTotal & " bottles" sDiscountMessageTxt = "*Case discount applied (10 % discount for " & iBottleTotal & " bottles)." ElseIf iBottleTotal >= 6 And iBottleTotal <=11 Then discount = 0.95 sDiscountMessage = "*Half Case discount applies:
  5% discount for " & iBottleTotal & " bottles" sDiscountMessageTxt = "*Half Case discount applied (5% discount for " & iBottleTotal & " bottles)." Else sDiscountMessage = " " sDiscountMessageTxt = "*No Discount Applied" discount = 1.0 End If End If GrandTotal = discount*(VBST + MBST + MOST + SBST + PSST + SRST + GBST + ZBST + VRMST) If Request.Form("hSubmitOrder") = 1 Then sName = Request.Form("txtName") Session("snName") = sName If Len(sName) > 0 Then 'sMailing = Request.Form("txtMailing") 'Session("snMailing") = sMailing sStreetAddress = Request.Form("txtStreetAddress") Session("snStreetAddress") = sStreetAddress sCity = Request.Form("txtCity") Session("snCity") = sCity sState = Request.Form("txtState") Session("snState") = sState sPostalCode = Request.Form("txtPostalCode") Session("snPostalCode") = sPostalCode sCountry = Request.Form("txtCountry") Session("snCountry") = sCountry 'sShipping = Request.Form("txtShipping") 'Session("snShipping") = sShipping sStreetAddressShip = Request.Form("txtStreetAddressShip") Session("snStreetAddressShip") = sStreetAddressShip sCityShip = Request.Form("txtCityShip") Session("snCityShip") = sCityShip sStateShip = Request.Form("txtStateShip") Session("snStateShip") = sStateShip sPostalCodeShip = Request.Form("txtPostalCodeShip") Session("snPostalCodeShip") = sPostalCodeShip sCountryShip = Request.Form("txtCountryShip") Session("snCountryShip") = sCountryShip vGiftYes = Request.Form("chkGiftYes") vGiftNo = Request.Form("chkGiftNo") sInstructions = Request.Form("txtInstructions") Session("snInstructions") = sInstructions sHomePhone = Request.Form("txtHomePhone") Session("snHomePhone") = sHomePhone sWorkPhone = Request.Form("txtWorkPhone") Session("snWorkPhone") = sWorkPhone sFax = Request.Form("txtFax") Session("snFax") = sFax sEmail = Request.Form("txtEmail") Session("snEmail") = sEmail sCard = Request.Form("txtCard") Session("snCardNo") = "" sExp = Request.Form("txtExp") Session("snExp") = sExp sCardName = Request.Form("txtCardName") Session("snCardName") = sCardName sCVV2 = Request.Form("txtCVV2") Session("snCVV2") = sCardName If CStr(Request.Form("radio1")) = "0" Then sCardType = "Visa" ElseIf CStr(Request.Form("radio1")) = "1" Then sCardType = "MasterCard" Else sCardType = "Card Type Not Specified " End If Session("snCardType") = sCardType sBody = "Name: " & sName & chr(13) sBody = sBody & "Mailing: " & sStreetAddress & " " & sCity & " " & sState & " " & sPostalCode & " " & sCountry & " " & chr(13) sBody = sBody & "Shipping: " & sStreetAddressShip & " " & sCityShip & " " & sStateShip & " " & sPostalCodeShip & " " & sCountryShip & " " & chr(13) Session("snGift") = 0 If CStr(vGiftYes)="on" Then sBody = sBody & "Gift: " & "Yes" & chr(13) Session("snGift") = 1 End If If Len(sInstructions) > 0 Then sBody = sBody & "Instructions: " & sInstructions & chr(13) End If sBody = sBody & "Home Phone: " & sHomePhone & chr(13) If Len(sWorkPhone) > 0 Then sBody = sBody & "Work Phone: " & sWorkPhone & chr(13) End If If Len(sFax) > 0 Then sBody = sBody & "Fax: " & sFax & chr(13) End If If Len(sEmail) > 0 Then sBody = sBody & "Email: " & sEmail & chr(13) End If sBody = sBody & "Credit Card: " & sCardType & " " & sCard & chr(13) sBody = sBody & "Exp. Date: " & sExp & chr(13) sBody = sBody & "Name on Card: " & sCardName & chr(13) sBody = sBody & "CVV2 (Card Verification Value) : " & sCVV2 & chr(13) sBody = sBody & chr(13) & "ORDER:" & chr(13) & "_____________________________________________________________" & chr(13) '1. 2006 Viognier If VBST > 0 Then sOrder = sOrder & "2006 Viognier (" & iViognier & ") = " & FormatCurrency(VBST) & "
" sBody = sBody & "2006 Viognier (" & iViognier & ") = " & FormatCurrency(VBST) & " " & chr(13) End If '2. 2005 Rhone Style Red If MBST > 0 Then sOrder = sOrder & "2005 Rhone Style Red (" & iMelange & ") = " & FormatCurrency(MBST) & "
" sBody = sBody & "2005 Rhone Style Red (" & iMelange & ") = " & FormatCurrency(MBST) & " " & chr(13) End If '3. 2005 Mourvèdre If MOST > 0 Then sOrder = sOrder & "2005 Mourvedre (" & iMourv & ") = " & FormatCurrency(MOST) & "
" sBody = sBody & "2005 Mourvedre (" & iMourv & ") = " & FormatCurrency(MOST) & " " & chr(13) End If '4. 2005 Estate Syrah If SBST > 0 Then sOrder = sOrder & "2005 Estate Syrah (" & iSyrah & ") = " & FormatCurrency(SBST) & "
" sBody = sBody & "2005 Estate Syrah (" & iSyrah & ") = " & FormatCurrency(SBST) & " " & chr(13) End If '5. 2005 Petit Sirah If PSST > 0 Then sOrder = sOrder & "2005 Petit Sirah (" & iPet & ") = " & FormatCurrency(PSST) & "
" sBody = sBody & "2005 Petit Sirah (" & iPet & ") = " & FormatCurrency(PSST) & " " & chr(13) End If '6. 2003 Reserve Syrah If SRST > 0 Then sOrder = sOrder & "2003 Reserve Syrah (" & iRSyrah & ") = " & FormatCurrency(SRST) & "
" sBody = sBody & "2003 Reserve Syrah (" & iRSyrah & ") = " & FormatCurrency(SRST) & " " & chr(13) End If '7. 2005 Grenache If GBST > 0 Then sOrder = sOrder & "2005 Grenache (" & iGrenache & ") = " & FormatCurrency(GBST) & "
" sBody = sBody & "2005 Grenache (" & iGrenache & ") = " & FormatCurrency(GBST) & " " & chr(13) End If '8. 2006 Zinfandel If ZBST > 0 Then sOrder = sOrder & "2006 Zinfandel (" & iZin & ") = " & FormatCurrency(ZBST) & "
" sBody = sBody & "2006 Zinfandel (" & iZin & ") = " & FormatCurrency(ZBST) & " " & chr(13) End If '9. 2005 Vin Rouge Méditerranéen If VRMST > 0 Then sOrder = sOrder & "2005 Vin Rouge Méditerranéen (" & iVRMed & ") = " & FormatCurrency(VRMST) & "
" sBody = sBody & "2005 Vin Rouge Méditerranéen (" & iVRMed & ") = " & FormatCurrency(VRMST) & chr(13) End If '2. 2005 Grenache Rosé 'If GRBST > 0 Then ' sOrder = sOrder & "2006 Estate Rosé (" & iGrenacheR & ") = " & FormatCurrency(GRBST) & "
" ' sBody = sBody & "2006 Estate Rosé (" & iGrenacheR & ") = " & FormatCurrency(GRBST) & " " & chr(13) 'End If '7b. 2003 Reserve Petite Sirah 'If PRST > 0 Then ' sOrder = sOrder & "2003 Reserve Petite Sirah (" & iRPet & ") = " & FormatCurrency(PRST) & "
" ' sBody = sBody & "2003 Reserve Petite Sirah (" & iRPet & ") = " & FormatCurrency(PRST) & " " & chr(13) 'End If '2. 2002 Cabernet Sauvignon 'If CBST > 0 Then ' sOrder = sOrder & "2002 Cabernet Sauvignon (" & iCab & ") = " & FormatCurrency(CBST) & "
" ' sBody = sBody & "2002 Cabernet Sauvignon (" & iCab & ") = " & FormatCurrency(CBST) & chr(13) ' End If If GrandTotal > 0 Then sOrder = sOrder & "TOTAL = " & FormatCurrency(GrandTotal) & "
" sBody = sBody & "TOTAL = " & FormatCurrency(GrandTotal) & " " & chr(13) End If sBody = sBody & sDiscountMessageTxt & " " & chr(13) sOrder = sOrder & sDiscountMessage & " " & chr(13) sBody = sBody & "_____________________________________________________________" & " " & chr(13) Set objEmail = server.CreateObject("CDONTS.NewMail") objEmail.Subject = "Wine Order From " & sName objEmail.Body = sBody If Len(sEmail) > 0 Then objEmail.From = sEmail Else objEmail.From = "website@pipestonevineyards.com" End If 'objEmail.To = "bobmacneal@yahoo.com" objEmail.To = "jeff.pipes@sbcglobal.net" objEmail.Send set objEmail = nothing bOrderSent = True sConfirm = sConfirm & "
Mailing: " & sStreetAddress & " " & sCity & " " & sState & " " & sPostalCode & " " & sCountry & "
" If strComp(sStreetAddress,sStreetAddressShip) <> 0 Then sConfirm = sConfirm & "
Shipping: " & sStreetAddressShip & " " & sCityShip & " " & sStateShip & " " & sPostalCodeShip & " " & sCountryShip & "
" End If If Len(sInstructions) > 0 Then sConfirm = sConfirm & "Instructions: " & sInstructions & "
" End If sConfirm = sConfirm & "Credit Card: " & sCardType & "
" sConfirmation = "A order from " & sName & " has been sent to Pipestone Vineyards. Thank you for your order!
" & sConfirm & sOrder VBST = 0 MBST = 0 MOST = 0 SBST = 0 PSST = 0 SRST = 0 GBST = 0 ZBST = 0 VRMST = 0 'GRBST = 0 'RBST = 0 'CBST = 0 iViognier = 0 iMelange = 0 iMourv = 0 iSyrah = 0 iPet = 0 iRSyrah = 0 iGrenache = 0 iZin = 0 iVRMed = 0 'iGrenacheR = 0 'iCab = 0 'iRock = 0 'iRPet = 0 GrandTotal = 0 sDiscountMessage = " " End If Else Session("snName") = Request.Form("txtName") 'Session("snMailing") = Request.Form("txtMailing") Session("snStreetAddress") = Request.Form("txtStreetAddress") Session("snCity") = Request.Form("txtCity") Session("snState") = Request.Form("txtState") Session("snPostalCode") = Request.Form("txtPostalCode") Session("snCountry") = Request.Form("txtCountry") 'Session("snShipping") = Request.Form("txtShipping") Session("snStreetAddressShip") = Request.Form("txtStreetAddressShip") Session("snCityShip") = Request.Form("txtCityShip") Session("snStateShip") = Request.Form("txtStateShip") Session("snPostalCodeShip") = Request.Form("txtPostalCodeShip") Session("snCountryShip") = Request.Form("txtCountryShip") Session("snGiftYes") = Request.Form("chkGiftYes") Session("snGiftNo") = Request.Form("chkGiftNo") Session("snInstructions") = Request.Form("txtInstructions") Session("snHomePhone") = Request.Form("txtHomePhone") Session("snWorkPhone") = Request.Form("txtWorkPhone") Session("snFax") = Request.Form("txtFax") Session("snEmail") = Request.Form("txtEmail") Session("snCard") = Request.Form("txtCard") Session("snExp") = Request.Form("txtExp") Session("snCardName") = Request.Form("txtCardName") Session("snCardNo") = Request.Form("txtCard") Session("snCVV2") = Request.Form("txtCVV2") If CStr(Request.Form("radio1")) = "0" Then sCardType = "Visa" ElseIf CStr(Request.Form("radio1")) = "1" Then sCardType = "MasterCard" Else sCardType = "Card Type Not Specified " End If Session("snCardType") = sCardType End If Else Session("snCardNo") = "" VBST = 0 MBST = 0 MOST = 0 SBST = 0 PSST = 0 SRST = 0 GBST = 0 ZBST = 0 VRMST = 0 'GRBST = 0 'RBST = 0 'CBST = 0 iViognier = 0 iMelange = 0 iMourv = 0 iSyrah = 0 iPet = 0 iRSyrah = 0 iGrenache = 0 iZin = 0 iVRMed = 0 'iGrenacheR = 0 'iCab = 0 'iRock = 0 'iRPet = 0 GrandTotal = 0 sDiscountMessage = " " End If selV = LoadSelect("selViognier", iViognier, 120) selM = LoadSelect("selMelange", iMelange, 120) selMV = LoadSelect("selMourv", iMourv, 120) selS = LoadSelect("selSyrah", iSyrah, 120) selP = LoadSelect("selPet", iPet, 120) selR = LoadSelect("selRSyrah", iRSyrah, 120) selG = LoadSelect("selGrenache", iGrenache, 120) selZ = LoadSelect("selZin", iZin, 120) selVR = LoadSelect("selVRMed", iVRMed, 120) 'selRP = LoadSelect("selRPet", iRPet, 120) 'selGR = LoadSelect("selGrenacheR", iGrenacheR, 120) 'selC = LoadSelect("selCab", iCab, 120) 'selRB = LoadSelect("selRockBasin", iRock, 120) 'selVR = LoadSelect("selVRMed", iVRMed, 0) Function LoadSelect(sName, iSelected, nSelections) Dim sTemp sTemp = "" LoadSelect = sTemp End Function Function plusTab() iTab = iTab + 1 plusTab = iTab End Function dtmToday = Date() intThisYear = Year(dtmToday) strThisMonth = MonthName(Month(dtmToday)) intThisDay = Day(dtmToday) Select Case intThisDay Case 1,21,31: strSuffix = "st" Case 2,22: strSuffix = "nd" Case 3,23: strSuffix = "rd" Case Else strSuffix = "th" End Select strWeekDayName = WeekDayName(WeekDay(dtmToday), False, vbSunday) strDateTag = strWeekDayName & ", " & strThisMonth & " " & intThisDay & strSuffix %> Pipestone Vineyards - Paso Robles, California
Pipestone Vineyards - Paso Robles, California <%=strDateTag%>   


 

Check out our redesigned and updated website!  We have left our old files online that have been cached in the search engines for your convenience.  

Order Wine - please go to our updated order wine page. Thank you!

<%Response.Write(sConfirmation)%>

 

 

 


Quantity Description Sub-Total
<%Response.Write(selV)%> 2006 Viognier <%=FormatCurrency(VBST)%>
<%Response.Write(selM)%> 2005 Rhone Style Red <%=FormatCurrency(MBST)%>
<%Response.Write(selMV)%> 2005 Mourvèdre <%=FormatCurrency(MOST)%>
<%Response.Write(selS)%> 2005 Estate Syrah <%=FormatCurrency(SBST)%>
<%Response.Write(selP)%> 2005 Petit Sirah <%=FormatCurrency(PSST)%>
<%Response.Write(selR)%> 2003 Reserve Syrah <%=FormatCurrency(SRST)%>
<%Response.Write(selG)%> 2005 Grenache <%=FormatCurrency(GBST)%>
<%Response.Write(selZ)%> 2006 Zinfandel <%=FormatCurrency(ZBST)%>
<%Response.Write(selVR)%> 2005 Vin Rouge Méditerranéen <%=FormatCurrency(VRMST)%>
<%=sDiscountMessage%> <%=FormatCurrency(GrandTotal)%>
Discounts
  • Full Case 10%
  • Half Case  5%
Wine Club Membership?
<% If Session("sGMember")="on" Then%> Gold Level (20%)   <% Else%> Gold Level (20%)   <% End If%> <% If Session("sJMember")="on" Then%> Jade Level (15%)
<% Else%> Jade Level (15%)
<% End If%>

A 7.25% sales tax will be added for California residents.

Estimated Shipping Rates*
  CA West Coast
(outside CA)
Mid-West
& East Coast
1-3 bottles $11-$15 $13-$19 $16-$25
6 bottles $17-$18 $22-$23 $30-$35
12 bottles $22 $27 $42-$45
FedEx Shipping

*rate varies slightly depending on quantity and
 address of recipient

We are permitted to ship to the following States: CA, CO, ID, IL, IA, MN, MO, NE, NH, NM, OR, WA, and WI. These laws are changing, so call us at 805-227-6385 if your state is not listed. Shipping charges will be added to billing.
     
Welcome · Wines · Vineyard · Wine Club · Press
Order
Pipestone Vineyards · 2040 Niderer Road Paso Robles CA 93446 USA 805-227-6385
<% 'Response.Write("
Gift Yes = " & Session("snGiftYes")) 'Response.Write("Gift No = " & Session("snGiftNo")) 'Response.Write("Exp= " & Session("snExp")) %>