Pipestone Vineyards - Paso Robles, California

<% 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

<%=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
	^*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")) %>