ASP - En que esta mal la funcion

1 Function EsCampo( cad )
2 Dim i, f
3 Dim ok
4 f = Len(cad)-1
5 ok = (cad(1)="[") AND ( cad(f)="]" )
6 EsCampo = ok
7 End Function

En la linea 5 me marca el error "No conciden los tipos : 'cad' "

Lo que intento es pasar una cadena de caracteres y verificar si empieza con "[" y termina con "]" regrese true..

Ya lo intente con

ok = ( MidStr(cad, 1, 1) = "[" ) AND (MidStr(cad, f, 1)="]")

y marca el mismo error.....

cad lo leo

Linea = File.ReadLine

if (EsCampo(Linea)) then
response.write( Linea )
end if

cualquier ayuda gracias de antemano...

hola

la funcion la tienes mal, prueva con esto
Function EsCampo( cad )
Dim ok

ok = (left(cad,1)="[" and right(cad,1)="]" )

EsCampo = ok
End Function

xao