<%
Segue o código para tratamento de erros em Asp 3.0 (Asp Clássico) para uso em nossa hospedagem. Por segurança, o IIS não exibe os erros na tela.
On Error Resume Next
StringConexao = “Provider=SQLNCLI10; Server=”&EnderecoVirtual&”; Database=”&BancoNome&”; Uid=”&Usuario&”; Pwd=”&Senha&”;”
Set connectdb = Server.CreateObject(“ADODB.Connection”)
connectdb.Open StringConexao
If Err.Number <> 0 Then
Response.Write “VB Err: ” & Err.Number & ” – ” & Err.Description & “”
End If
If connectdb.Errors.Count > 0 Then
Dim e
For Each e In connectdb.Errors
Response.Write “ADO: ” & e.Number & ” | SQLState: ” & e.SQLState & ” | ” & e.Description & “”
Next
Else
Response.Write “Connected”
End If
%>