Your right I was calling it first. On moving it up to the page header I get
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/Degday/DegreeDayslist.asp, line 190, column 7
Case 0 To 6
------^
186 <%
187 Function calcHotWaterFactorLikeANormalPerson(strdegday)
188 Dim result
189 Select Case strdegday
190 Case 0 To 6
191 result = 0
192 Case 7 To 10
193 result = 1
194 Case 11 To 16
195 result = 2
196 Case Else
197 result = 3
198 End Select
199
200 calcHotWaterFactor = result
201 End Function
202 %>
If your too busy it doesn't matter, as I understand folks have work to do !