document.write(calcHotWaterFactor(strdegday))

Function calcHotWaterFactorLikeANormalPerson(ByVal strdegday As Integer) as integer
    Dim result as integer
    Select Case strdegday
        Case 0 To 6
            result = 0
        Case 7 To 10
            result = 1
        Case 11 To 16
            result = 2
        Case Else
            result = 3
    End Select
    
    calcHotWaterFactor = result
End Function

Ahahaha, AHAHAHAHAHAHA. VB indeed. Ever heard of JavaScript? SOOoooooo much better, ZZZZZZZzzzzzzzzzzzzzzzzzzz.

Hmm, anything i'm maybe doing wrong?

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor(ByVal strdegday As Integer) as integer

Doesnt appear to be?

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor (ByVal strdegday As Integer) as Integer

When I run your one you created I get this too

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactor(strdegday)

Any ideas ?

Thanks Kenny,

Heres what I get now

Technical Information (for support personnel)

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/Degday/DegreeDayslist.asp, line 486
Function calcHotWaterFactorLikeANormalPerson

Using this,

<% Function calcHotWaterFactorLikeANormalPerson
Dim result
Select Case strdegday
Case 0 To 6
result = 0
Case 7 To 10
result = 1
Case 11 To 16
result = 2
Case Else
result = 3
End Select

calcHotWaterFactor = result
End Function %>

function calcHotWaterFactor(strdegday)
{
	if (strdegday <= 6) return 0
	else if (strdegday <= 10) return 1
	else if (strdegday <= 16) return 2
	else return 3;
}

One stupid to you probably question how do I get it to write the result?

Thanks

Which line is 486? You seem to have lost the parameter - the fuction definition should be:

Function calcHotWaterFactorLikeANormalPerson(strdegday)

I've got a feeling that in ASP, the function definition needs to be above any calls to it. I've not done ASP in years :S.

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 !

Case 0,1,2,3,4,5,6
	result = 0
Case 7,8,9,10
	result = 1

Ok doing it this way at least the page loads, but on calling the result on line 534 <% document.write (calcHotWaterFactor) %>

I get this !

Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/Degday/DegreeDayslist.asp, line 534

<% document.write( calcHotWaterFactor( bob ) ) %>