bostjank
02-06-2003, 11:08 PM
Hi!
I have a problem -this script returns the following error when executing:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/compserver/head.asp, line 2
Function StatusBarText(strText)
^
This is my code:
<%
~~~ ASP statements (DB management, calculations,...) ~~~
Header()
~~~ Other ASP statements ~~~
%>
<% Sub Header() %>
<html>
<head>
...
</head>
<body>
<!--#include file="head.asp" -->
<% End Sub %>
********
THIS IS HEAD.ASP
<%
Function StatusBarText(strText)
If strText = "" Then
StatusBarText = "onMouseOver=""return setStatus('Click...')"" onMouseOut=""return setStatus('')"""
Else
StatusBarText = "onMouseOver=""return setStatus('" & strText & "')"" onMouseOut=""return setStatus('')"""
End If
End Function
%>
...
The error doesn't appear if I omitt SUB HEADER and just place its "content" in the place instead of Header(). But I don't want to do that - do you know the solution to the problem?
Thanks,
Bostjan
I have a problem -this script returns the following error when executing:
Microsoft VBScript compilation error '800a03ea'
Syntax error
/compserver/head.asp, line 2
Function StatusBarText(strText)
^
This is my code:
<%
~~~ ASP statements (DB management, calculations,...) ~~~
Header()
~~~ Other ASP statements ~~~
%>
<% Sub Header() %>
<html>
<head>
...
</head>
<body>
<!--#include file="head.asp" -->
<% End Sub %>
********
THIS IS HEAD.ASP
<%
Function StatusBarText(strText)
If strText = "" Then
StatusBarText = "onMouseOver=""return setStatus('Click...')"" onMouseOut=""return setStatus('')"""
Else
StatusBarText = "onMouseOver=""return setStatus('" & strText & "')"" onMouseOut=""return setStatus('')"""
End If
End Function
%>
...
The error doesn't appear if I omitt SUB HEADER and just place its "content" in the place instead of Header(). But I don't want to do that - do you know the solution to the problem?
Thanks,
Bostjan