Hallo Christian,
ich werde versuchen es diese Woche noch auszuprobieren. Dann kann ich mich ja melden,
ob es funktionopelt
hat oder nicht. (Bin momentan leicht im Stre�).
Vielen Dank (auch an Roman)
Rainer
Christian Marin schrieb:
> > Darf ich mal frech sein ;-)
> > Probiere das mal aus
> >
> > On Error resume next
> > conn.execute(...)
>
> probier mal das - nach dem korrigieren der umbr�che ;-)
>
> <% @Language = VBScript %>
> <% Option Explicit
> Response.Expires = 0
> Response.Buffer = False
> Dim conn, objError
> %>
> <!-- #include file = "includes/conn_open.asp" -->
> <html>
> <body>
> <%
> On Error resume next
> conn.execute("...")
> If Err.Number <> conn.Errors(0).Number Then
> Set objError = Server.GetLastError()
> Response.Write "<p>IsASP-Error:" & IsObject(objError) & "</p>"
> Response.Write "Number:" & objError.Number & "<br />"
> Response.Write "ASP-Errorcode:" & objError.ASPCode & "<br />"
> Response.Write "Source:" & objError.Source & "<br />"
> Response.Write "Description:" & objError.Description & "<br />"
> Response.Write "ASP-Description:" & objError.ASPDescription & "<br />"
> Response.Write "Category:" & objError.Category & "<br />"
> Response.Write "Filename:" & objError.File & "<br />"
> Response.Write "Linenumber:" & objError.Line & "<br />"
> Response.Write "Column:" & objError.Column & "<br />"
> Response.Write "HelpContext:" & objError.HelpContext & "<br />"
> Err.Clear
> Else
> Response.Write "<p>IsADO-Error:" & IsObject(conn.Errors) & "</p>"
> If conn.Errors.Count > 0 Then
> For Each objError in conn.Errors
> If objError.Number <> 0 Then
> Response.Write "<table border=1>" & _
> "<tr><td>Error Property</td><td>Contents</td></tr>"
>& _
> "<tr><td>Number</td><td>" & objError.Number &
>"</td></tr>" & _
> "<tr><td>NativeError</td><td>" &
>objError.NativeError & "</td></tr>" & _
> "<tr><td>SQLState</td><td>" & objError.SQLState &
>"</td></tr>" & _
> "<tr><td>Source</td><td>" & objError.Source &
>"</td></tr>" & _
> "<tr><td>Description</td><td>" &
>objError.Description & "</td></tr>" & _
> "</table>"
> End If
> Next
> End If
> End If
> conn.close
> Set conn = Nothing
> %>
> </body>
> </html>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
