Erro em funcao.

[Volpisp 0]

  <%Sub Valida_Request()  Set objRegExpr = New RegExp  objRegExpr.Global = True  objRegExpr.IgnoreCase = True  objRegExpr.Pattern = """|'"  For Each obj In Request.Form    If objRegExpr.Test(Request.Form(obj)) Then      Response.Write "<b>Caracteres Invalidos no campo " & obj & "</b>"      Response.End    End If  Next  For Each obj In Request.QueryString    If objRegExpr.Test(Request.QueryString(obj)) Then      Response.Write "Caracteres Invalidos no campo " & obj      Response.End    End If  Next  Set objRegExpr = NothingEnd Sub%>

Galera nao consigo achar o erro, diz que:

Tipo de erro:Erro de compilação do Microsoft JScript (0x800A03EC)';' esperado/Produtos.asp, line 28, column 4Sub Valida_Request()---^

ja coloquei o ; no final e nao rolou...

[gastao 0]

Jscript ?????

[Bins 0]

Acho que devia estar Vbscript, ele deve estar pensando que o codigo é em JavaScript e dá erro justamente ao criar a função