<%
sPage = request.QueryString("Page")
bUpdateConfigurationNet = false
bUpdateConfigurationWifi = false
bUpdateConfigurationUPB = false
bUpdateConfigurationX10 = false
bUpdateConfigurationWireless = false
sQuantity = request.form("NumberOfOutputs")
sVersion = request.form("mcsSprinklersVersion")
if sQuantity = "" then
sQuantity = "16"
sVersion = "1"
end if
if sPage = "" then
sPage = request.Form("Page")
end if
if sPage = "Rain8Net" then
bUpdateConfigurationNet = true
Elseif sPage = "Rain8WiFi" then
bUpdateConfigurationWifi = true
Elseif sPage = "Rain8UPB" then
bUpdateConfigurationUPB = true
Elseif sPage = "Rain8X10" then
bUpdateConfigurationX10 = true
Elseif sPage = "Rain8Wireless" then
bUpdateConfigurationWireless = true
End if
sChecked0 = ""
sChecked1 = ""
sChecked2 = ""
if sVersion = "0" then
nPrice = 29.95
sChecked0= " checked"
sSW = "BAS"
elseif sVersion = "1" then
nPrice = 89.95
sChecked1= " checked"
sSW = "STD"
elseif sVersion = "2" then
sChecked2= " checked"
nPrice = 149.95
sSW = "PRO"
else
sChecked1= " checked"
sVersion = "1"
nPrice = 89.95
sSW = "STD"
end if
if isNumeric(sQuantity) then
iQuantity = int((cint(sQuantity) + 7)/8)
else
iQuantity = 2
sQuantity = "2"
end if
if iQuantity <= 0 then
else
if bUpdateConfigurationNet then
nPrice = nPrice + 117.99 + (iQuantity-1) * 108.99
sItem = "40034" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module Direct Connect Irrigation System"
elseif bUpdateConfigurationWifi then
nPrice = nPrice + 245.95 + (iQuantity-1) * 108.99
sItem = "40035" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module WiFi Connect Irrigation System"
elseif bUpdateConfigurationUPB then
nPrice = nPrice + 249.75 + 60 +(iQuantity-1) * 186.75
sItem = "40036" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module UPB Connect Irrigation System"
'sInvoice = 30080 - UPB Irrigation Controller, Initial 8 Zones" & vbTab & "Quantity=1"
'sInvoice = sInvoice
elseif bUpdateConfigurationX10 then
nPrice = nPrice + 125.75 + 30 + (iQuantity-1) * 99.99
if iQuantity > 2 then
nPrice = nPrice + (6.85 * int(iQuantity+2)/5) '80069 5-1 splitter
end if
if iQuantity > 5 then
nPrice = nPrice + int((iQuantity-1)/5) * 21 'PSC05
End if
sItem = "40037" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module X10 Connect Irrigation System"
elseif bUpdateConfigurationWireless then
nPrice = nPrice + 134.99 + (iQuantity-1) * 99.99
sItem = "40038" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module Wireless Connect Irrigation System"
else
nPrice = nPrice + 117.99 + (iQuantity-1) * 108.99
sItem = "40034" & sSW & cstr(iQuantity)
sName = sQuantity & " Zone / " & cstr(iQuantity) & " Module Direct Connect Irrigation System"
end if
end if
sPrice = "$" & round(nPrice,2)
i = instr(sPrice,".")
if i = 0 then
sPrice = sPrice & ".00"
elseif i = len(sPrice) - 1 then
sPrice = sPrice & "0"
end if
%>
New Page 1
<%=sPrice%>