Hello...a colleague of mine done a function in VBScript but the
function gives an error:

<%

function test_String(st)
l1 = len(st)
teste = true

if l1 >20 then
teste = false
end if

if InStr(st, "script", 1)>0 then
teste = false
end if

test_String = teste

end function

%>


Microsoft VBScript compilation error '800a03ea'

Syntax error

/menu_lateral2.asp, line 3

function test_String(st)
^


Can anyone help me? i dont understand about VBScript and the website
is done because of this...

"Pépê" <josemariabarros@xxxxxx> wrote in message
news:01f62f72-1450-433b-a335-afa00d63dff5@xxxxxx

> Hello...a colleague of mine done a function in VBScript but the
> function gives an error:
>
> <%
>
> function test_String(st)
> l1 = len(st)
> teste = true
>
> if l1 >20 then
> teste = false
> end if
>
> if InStr(st, "script", 1)>0 then
> teste = false
> end if
>
> test_String = teste
>
> end function
>
> %>
>
>
> Microsoft VBScript compilation error '800a03ea'
>
> Syntax error
>
> /menu_lateral2.asp, line 3
>
> function test_String(st)
> ^
>
>
> Can anyone help me? i dont understand about VBScript and the website
> is done because of this...

To quickly test it I converted it to a VBS file:

WScript.Echo test_String("st")
'<%
function test_String(st)
l1 = len(st)
teste = true
if l1 >20 then
teste = false
end if
if InStr(st, "script", 1)>0 then
teste = false
end if
test_String = teste
end function
'%>

A "Type mismatch" error was displayed.

The cause was you use of InStr():

The InStr function syntax has these arguments:
start (Optional), string1, string2, compare (Optional)

start -- The start argument is equired if compare is specified.
compare -- If omitted, a binary comparison is performed.

Change
if InStr(st, "script", 1)>0 then
to
if InStr(1, st, "script", 1)>0 then