On Error Resume Next

[FabianoSouza 5]

Tratando exceções de erro.

 

Estou testando este código para fazer um insert e tratar eventuais erros:

 

<%

On Error Resume Next

'Grava valores no banco de dados

sqlInsert = "INSERT INTO REGIONAIS (RegCod, RegTitulo, RegSt, RegUCad, RegDtCad, RegIPCad) VALUES ('"& varPK &"', '" & varTitulo & "', '" & varSt &"', '" & varUsuario&a "', getdate(), '" & varIP & "' )"

MM_conexao_STRING.Execute(sqlInsert)

 

If Err.Number <>0 Then

Response.Cookies("erro").item("numero") = err.number

Response.Cookies("erro").item("descricao") = err.description

Response.Cookies("erro").item("contexto") = err.helpcontext

Response.Cookies("erro").item("ajuda") = err.HelpFile

Response.Cookies("erro").item("origem") = err.nativeerror

Response.Cookies("erro").item("fonte") = err.source

Response.Clear()

Response.Redirect("../errosIframe.asp")

Else

Response.Redirect("../setup_regional_lista.asp")

End if

On Error GoTo 0

%>

Durante os testes notei que alguns erros não são interceptados. Exemplo:

Se ao invés de passar a variável '" & varTitulo & "' eu passar '" & varTitulo & t "' ele escreve na página toda a instrução SQL.

 

Como trato "Erro de compilação do Microsoft VBScript erro '800a0401'" ???