|
|
|
|
RoofHeat Cable and Part Calculation
|
|
|
ESTIMATING MATERIALS
Gutter Heating Cables - Determining the necessary materials for gutter ice melting
requires a few simple measurements. First calculate the total length of gutters to be heated, including
downspouts. The length of gutters is then doubled to obtain the amount of cable required. WZ-2 clips are used every
few inches, including in downspouts, to ensure that the cables don't cross. Downspout hanger kits are used at the top of the downspout.
The cables are controlled by gutter mounted snow switches, which are activated when moisture and low temperatures are present.
|
|
|
<%
Dim Gutters
Dim Gutters2
Dim Downspouts
Dim HangerKits
Dim Clips
Dim Activation
Dim Gutters2Price
Dim HangerKitsPrice
Dim ClipsPrice
Dim ActivationPrice
If Request.form("gutter") = 1 Then
'********* BLUE HEAT CABLE ***********************************************
Gutters = Request.form("gutters")
Gutters2 = Gutters*2
Gutters2Price = Gutters2*2
'********* BLUE HEAT CABLE ***********************************************
'********* KITS & CLIPS ***********************************************
'** HANGER/DOWNSPOUT KITS **
Downspouts = Request.form("downspouts")
HangerKits = Downspouts
HangerKitsPrice = HangerKits*32
'** CLIPS **
If Gutters < 75 Then
Clips = 50
ClipsPrice = 37
ElseIf Gutters >= 76 and Gutters < 150 Then
Clips = 100
ClipsPrice = 75
ElseIf Gutters >= 150 and Gutters < 225 Then
Clips = 150
ClipsPrice = 112
ElseIf Gutters >= 225 and Gutters < 300 Then
Clips = 200
ClipsPrice = 150
ElseIf Gutters >= 300 and Gutters < 375 Then
Clips = 250
ClipsPrice = 187
ElseIf Gutters >= 375 and Gutters < 450 Then
Clips = 300
ClipsPrice = 225
ElseIf Gutters >= 450 and Gutters < 525 Then
Clips = 350
ClipsPrice = 262
ElseIf Gutters >= 525 and Gutters < 600 Then
Clips = 400
ClipsPrice = 300
ElseIf Gutters >= 600 and Gutters < 675 Then
Clips = 450
ClipsPrice = 337
ElseIf Gutters >= 675 and Gutters < 750 Then
Clips = 500
ClipsPrice =375
ElseIf Gutters >= 750 and Gutters < 825 Then
Clips = 550
ClipsPrice = 412
ElseIf Gutters >= 825 Then
Clips = "50 every 75 ft."
End If
'********* KITS & CLIPS ***********************************************
'********* ACTIVATION DEVICES ***********************************************
If Gutters >= 1 and Gutters < 126 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "LCG Gutter Switch"
'ActivationPrice = "200"
Power = "110 V."
ElseIf Gutters >= 125 and Gutters < 181 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "120 V."
ElseIf Gutters >= 180 and Gutters < 361 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "220 V."
ElseIf Gutters >= 725 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "220 V. every 800 ft."
Boxes = "yes"
End If
'********* ACTIVATION DEVICES ***********************************************
'********* SETUP FEES ***********************************************
If Gutters >= 1 and Gutters < 301 Then
Setup = "55"
SetupQ = "1"
ElseIf Gutters >= 300 and Gutters < 601 Then
Setup = "110"
SetupQ = "2"
ElseIf Gutters >= 601 and Gutters < 901 Then
Setup = "165"
SetupQ = "3"
ElseIf Gutters >= 900 and Gutters < 1201 Then
Setup = "200"
SetupQ = "4"
ElseIf Gutters >= 1201 Then
Setup = "$50 every 300 ft."
End If
'********* SETUP FEES ***********************************************
'********* DISPLAYED INFORMATION ***********************************************
If Gutters < 361 Then
sHTML = "
"
sHTML = sHTML & ""
sHTML = sHTML & " Calculation Results
"
sHTML = sHTML & " | "
sHTML = sHTML & ""
sHTML = sHTML & "Item Description
![]()
"
sHTML = sHTML & "BlueHeat cable required:
Cold Leads, Design, Setup:
Hanger Kits required:
DS-2 clips:
Activation device:
Power Requirements: | "
sHTML = sHTML & ""
sHTML = sHTML & "Quantity
![]()
"
sHTML = sHTML & "" & Gutters2 & " ft.
" & SetupQ & "
" & HangerKits & "
" & Clips & "
" & Activation & "
" & Power & "
"
sHTML = sHTML & " | "
sHTML = sHTML & "Price
![]()
"
sHTML = sHTML & "$ " & Gutters2Price & "
" & Setup & "
" & HangerKitsPrice & "
" & ClipsPrice & "
" & ActivationPrice & "
____________
Total: $ " & Gutters2Price+Setup+HangerKitsPrice+ClipsPrice+ActivationPrice & ""
sHTML = sHTML & " |
"
' Response.Write "![]()
"
Response.Write sHTML
Response.Write "
E-mail this information to a representive, and he will contact you.
"
If Activation = "GIT-3A Gutter Switch" Then
sHTML3 = ""
sHTML3 = sHTML3 & "Activation Device Options:
![]()
"
sHTML3 = sHTML3 & " GIT-4 - Upgrade gutter switch w/Remote
"
sHTML3 = sHTML3 & " | "
sHTML3 = sHTML3 & "![]()
"
sHTML3 = sHTML3 & "
Add $410"
sHTML3 = sHTML3 & " |
"
Else
sHTML3 = ""
sHTML3 = sHTML3 & "Optional activation device upgrades:
![]()
"
sHTML3 = sHTML3 & " GIT-4 - Commercial-grade gutter switch w/Remote
"
sHTML3 = sHTML3 & " | "
sHTML3 = sHTML3 & "![]()
"
sHTML3 = sHTML3 & "
Add $560
"
sHTML3 = sHTML3 & " |
"
End If
Response.Write sHTML3
sHTML2 = " | ![]()
"
Response.Write sHTML2
Response.Write " *Please note: pricing is an estimate only based off of past projects
"
session("sHTML") = sHTML & sHTML3 & sHTML2
Else
sHTML = "
"
sHTML = sHTML & ""
sHTML = sHTML &" Calculation Results
"
sHTML = sHTML & " | "
sHTML = sHTML & ""
sHTML = sHTML & "Item Description
![]()
"
sHTML = sHTML & "BlueHeat cable required:
Cold Leads, Design, Setup:
Hanger Kits required:
DS-2 clips:
Activation device:
Power Requirements: | "
sHTML = sHTML & ""
sHTML = sHTML & "Quantity & Pricing
![]()
"
sHTML = sHTML & "" & Gutters2 & " ft. @ $2.00 / lineal foot
$55 for every 300 ft. of Gutter
1 kit @ $32 for every down spout
50 clips every 75 ft. @ $37 for 50, $75 for 100
GIT-3A Gutter switch @ $550
Ctrl Box @ $850
240 V. every 350 ft. of gutter
"
sHTML = sHTML & " |
"
sHTML = sHTML & "
Please call 1-888-488-9276 to help determine best solutions and pricing
![]()
- or -
![]()
"
' Response.Write "![]()
"
Response.Write sHTML
Response.Write "E-mail this information to a representive, and he will contact you.
"
Response.Write ""
Response.Write "Activation Device Options:
![]()
"
Response.Write " GIT-4 - Upgrade gutter switch w/Remote
"
Response.Write " | "
Response.Write "![]()
"
Response.Write "
Add $410
![]()
"
Response.Write " |
"
sHTML2 = " | ![]()
"
Response.Write sHTML2
Response.Write " *Please note: pricing is an estimate only based off of past projects
"
session("sHTML") = sHTML & sHTML2
End If
'******* EMAIL RESULTS TO US FOR THE HECK OF IT ***************************
Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSendUsingPickup = 1 'CHANGED TO 1 FROM 2 WHEN USING cdoSendUsingPickup INSTEAD OF cdoSendUsingPort
Const strPickup = "c:\inetpub\mailroot\pickup"
Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
Const cdoBasic = 1
'Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
'Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
Dim objConfig ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields ' As ADODB.Fields
Dim FirstName
Dim LastName
' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
' Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPickup 'USE THIS INSTEAD OF cdoSendUsingPort IF NOT WORKING
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup
.Item(cdoSMTPServer) = "206-225-86-47" 'CHANGE SERVER NAME HERE
.Item(cdoSMTPServerPort) = 25 'DEFAULT PORT IS 25 - CHANGE TO CORRECT PORT
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
'.Item(cdoSendUserName) = "username"
'.Item(cdoSendPassword) = "password"
.Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
FirstName = request.form("txtName")
FirstName = ucase(left(FirstName,1)) & lcase(mid(FirstName,2))
LastName = request.form("txtNameLast")
LastName = ucase(left(LastName,1)) & lcase(mid(LastName,2))
sHTML4 = session("sHTML")
sHTML = ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & ""
sHTML = sHTML & "GUTTER - Results from CALC"
sHTML = sHTML & "
"
sHTML = sHTML & "-------------------------------------------------------
"
sHTML = sHTML & sHTML4
sHTML = sHTML & "-------------------------------------------------------
"
sHTML = sHTML & ""
With objMessage
.To = "troy@warmzone.com"
.From = "info@warmzone.com"
.Subject = "GUTTER - Results from CALC"
.HTMLBody = sHTML
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
End If
%>
Roof Heating Cables - Calculating the amount of cable needed for roof de-icing can easily be
done after taking a few simple measurents. Measurent A, shown in Figure 1 to the right, will always be a constant 2 feet.
Measurement B will either be 1-5 feet, which is the distance from the roof edge to about 6 inches above the
roof eave, where the wall and the overhang meet. The final needed measurement is the length of the roof edge.
Warmzone highly recommends heating the gutters as well to prevent refreezing in the gutters.
|
|
|
<%
If Request.form("roof") = 1 Then
'********* BLUE HEAT CABLE ***********************************************
Gutters = Request.form("gutters2")
Gutters2 = Gutters*2
Gutters2Price = Gutters2*2
If Request.form("MB") = 1 Then
Variable = 4
Elseif Request.form("MB") = 2 Then
Variable = 6
Elseif Request.form("MB") = 3 Then
Variable = 8
Elseif Request.form("MB") = 4 Then
Variable = 10
Elseif Request.form("MB") = 5 Then
Variable = 12
End If
RoofCable = Request.form("roofeaves2")
RoofCable = RoofCable/2
RoofCable = RoofCable*Variable
RoofCablePrice = RoofCable*2
TotalCable = Gutters2+RoofCable
TotalCablePrice = TotalCable*2
'********* BLUE HEAT CABLE ***********************************************
'********* KITS & CLIPS ***********************************************
'** HANGER/DOWNSPOUT KITS **
Downspouts = Request.form("downspouts2")
HangerKits = Downspouts
HangerKitsPrice = HangerKits*32
'** CLIPS **
If Gutters < 75 Then
Clips = 50
ClipsPrice = 37
ElseIf Gutters >= 76 and Gutters < 150 Then
Clips = 100
ClipsPrice = 75
ElseIf Gutters >= 150 and Gutters < 225 Then
Clips = 150
ClipsPrice = 112
ElseIf Gutters >= 225 and Gutters < 300 Then
Clips = 200
ClipsPrice = 150
ElseIf Gutters >= 300 and Gutters < 375 Then
Clips = 250
ClipsPrice = 187
ElseIf Gutters >= 375 and Gutters < 450 Then
Clips = 300
ClipsPrice = 225
ElseIf Gutters >= 450 and Gutters < 525 Then
Clips = 350
ClipsPrice = 262
ElseIf Gutters >= 525 and Gutters < 600 Then
Clips = 400
ClipsPrice = 300
ElseIf Gutters >= 600 and Gutters < 675 Then
Clips = 450
ClipsPrice = 337
ElseIf Gutters >= 675 and Gutters < 750 Then
Clips = 500
ClipsPrice =375
ElseIf Gutters >= 750 and Gutters < 825 Then
Clips = 550
ClipsPrice = 412
ElseIf Gutters >= 825 Then
Clips = "50 every 75 ft."
End If
'********* KITS & CLIPS ***********************************************
'********* ACTIVATION DEVICES ***********************************************
If TotalCable >= 1 and TotalCable < 126 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "LCG Gutter Switch"
'ActivationPrice = "200"
Power = "110 V."
ElseIf TotalCable >= 125 and TotalCable < 181 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "120 V."
ElseIf TotalCable >= 180 and TotalCable < 361 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "220 V."
ElseIf TotalCable >= 725 Then
Activation = "DS-8 Gutter Switch"
ActivationPrice = "400"
'Activation = "GIT-3A Gutter Switch"
'ActivationPrice = "550"
Power = "220 V. every 800 ft."
Boxes = "yes"
End If
'********* ACTIVATION DEVICES ***********************************************
'********* SETUP FEES ***********************************************
If TotalCable >= 1 and TotalCable < 301 Then
Setup = "55"
SetupQ = "1"
ElseIf TotalCable >= 300 and TotalCable < 601 Then
Setup = "110"
SetupQ = "2"
ElseIf TotalCable >= 601 and TotalCable < 901 Then
Setup = "165"
SetupQ = "3"
ElseIf TotalCable >= 900 and TotalCable < 1201 Then
Setup = "200"
SetupQ = "4"
ElseIf TotalCable >= 1201 Then
Setup = "$50 every 300 ft."
End If
'********* SETUP FEES ***********************************************
'********* DISPLAYED INFORMATION ***********************************************
If TotalCable < 361 Then
sHTML = "
"
sHTML = sHTML & ""
sHTML = sHTML & " Calculation Results
"
sHTML = sHTML & " | "
sHTML = sHTML & ""
sHTML = sHTML & "Item Description
![]()
"
sHTML = sHTML & "Cable required for Roofs:
Cable required for Gutters:
Cold Leads, Design, Setup:
Hanger Kits required:
DS-2 clips for gutters:
Activation device:
Power Requirements: | "
sHTML = sHTML & ""
sHTML = sHTML & "Quantity
![]()
"
sHTML = sHTML & "" & RoofCable & " ft.
" & Gutters2 & " ft.
" & SetupQ & "
" & HangerKits & "
" & Clips & "
" & Activation & "
" & Power & "
"
sHTML = sHTML & " | "
sHTML = sHTML & "Price
![]()
"
sHTML = sHTML & "$ " & RoofCablePrice & "
" & Gutters2Price & "
" & Setup & "
" & HangerKitsPrice & "
" & ClipsPrice & "
" & ActivationPrice & "
____________
Total: $ " & RoofCablePrice+Gutters2Price+Setup+HangerKitsPrice+ClipsPrice+ActivationPrice & ""
sHTML = sHTML & " |
"
' Response.Write "![]()
"
sHTML = sHTML & "
"
sHTML = sHTML & "Recommended Additional Parts
![]()
"
sHTML = sHTML & "RC-1 clips for asphalt shingles:
RC-2 for metal roofs:
M3 dbl-sided tape for metal roofs:
| "
sHTML = sHTML & ""
sHTML = sHTML & "Quantity
![]()
"
sHTML = sHTML & "100
500
25
180 ft. | "
sHTML = sHTML &"Price
![]()
"
sHTML = sHTML & "$ 35
105
50
140
|
"
Response.Write sHTML
Response.Write "
E-mail this information to a representive, and he will contact you.
"
If Activation = "GIT-3A Gutter Switch" Then
sHTML3 = ""
sHTML3 = sHTML3 & "Activation Device Options:
![]()
"
sHTML3 = sHTML3 & " GIT-4 - Upgrade gutter switch w/Remote
"
sHTML3 = sHTML3 & " | "
sHTML3 = sHTML3 & "![]()
"
sHTML3 = sHTML3 & "
Add $410"
sHTML3 = sHTML3 & " |
"
Else
sHTML3 = ""
sHTML3 = sHTML3 & "Optional activation device upgrades:
![]()
"
'sHTML3 = sHTML3 & " GIT-3A - Commercial-grade gutter switch
"
sHTML3 = sHTML3 & " GIT-4 - Commercial-grade gutter switch w/Remote
"
sHTML3 = sHTML3 & " | "
sHTML3 = sHTML3 & "![]()
"
sHTML3 = sHTML3 & "
Add $560"
sHTML3 = sHTML3 & " |
"
End If
Response.Write sHTML3
sHTML2 = " | ![]()
"
Response.Write sHTML2
Response.Write " *Please note: pricing is an estimate only based off of past projects
"
session("sHTML") = sHTML & sHTML3 & sHTML2
Else
sHTML = "
"
sHTML = sHTML & ""
sHTML = sHTML &" Calculation Results
"
sHTML = sHTML & " | "
sHTML = sHTML & ""
sHTML = sHTML & "Item Description
![]()
"
sHTML = sHTML & "BlueHeat cable required:
Cold Leads, Design, Setup:
Hanger Kits required:
DS-2 clips for gutters:
RC-1 clips for asphalt shingles:
RC-2 for metal roofs:
M3 dbl-sided tape for metal roofs:
Activation device:
Power Requirements: | "
sHTML = sHTML & ""
sHTML = sHTML & "Quantity & Pricing
![]()
"
sHTML = sHTML & "" & RoofCable & " roof + " & Gutters2 & " gutter = " & TotalCable & " ft. @ $2.00/lin. ft.
$55 for every 300 ft. of Gutter
1 kit @ $32 for every down spout
50 clips every 75 ft. @ $37 for 50, $75 for 100
100 clips for $35, 500 clips for $105
25 clips for $50
$140 for 180 ft. roll
DS-8 Gutter Sensor @ $400
Ctrl Box @ $850
240 V. every 350 ft. of gutter
"
sHTML = sHTML & " |
"
Response.Write sHTML
Response.Write "
Please call 1-888-488-9276 to help determine best solutions and pricing
![]()
- or -
![]()
"
Response.Write "E-mail this information to a representive, and he will contact you.
"
Response.Write ""
Response.Write "Activation Device Options:
![]()
"
Response.Write " GIT-4 - Upgrade gutter switch w/Remote
"
Response.Write " | "
Response.Write "![]()
"
Response.Write "
Add $560
![]()
"
Response.Write " |
"
sHTML2 = " | ![]()
"
Response.Write sHTML2
Response.Write " *Please note: pricing is an estimate only based off of past projects
"
session("sHTML") = sHTML & sHTML2
End If
'******* EMAIL RESULTS TO US FOR THE HECK OF IT ***************************
End If
%>
|
|
|
