Syntax error i Function formatMessage(strMessage)

Hejsa,

Jeg har følgende VBScript,som giver mig en fejl:

<%
Function formatMessage(strMessage)
Dim strTemp
strTemp = Server.HTMLEncode(strMessage)
strTemp = Replace(strTemp, "      ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strTemp = Replace(strTemp, "      ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strTemp = Replace(strTemp, "    ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strTemp = Replace(strTemp, "    ", "&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
strTemp = Replace(strTemp, "  ", "&nbsp;&nbsp;&nbsp;", 1, -1, 1)
    strTemp = Replace(strTemp, vbCrLf, "<br>" & vbCrLf, 1, -1, 1)
strTemp = Replace(strTemp, "&gt;", ">")
strTemp = Replace(strTemp, "&lt;", "<")
strTemp = Replace(strTemp, "&quot;", chr(32))
formatMessage = strTemp
End Function

Function Headline(row)
row = replace(row,"*","<br>")
Headline = row
End Function
%>

Fejlen jeg får er :


Microsoft VBScript compilation error '800a03ea'

Syntax error

/include/order_message.asp, line 2

Function formatMessage(strMessage)


Siden er kørende på Windows 2008 R2 Web edition, og MS SQL 2008 på Win 2008 R2 Enterprise


Sitet er oprindeligt blevet udviklet på Win 2003 med MS SQL 2005!

Er der en der kan hjælpe med at løse dette problem? :-)


/stig :-)