<%@Language="VBSCRIPT"%>
<%
Option Explicit
On Error Resume Next
Response.Clear
Dim objError
Dim objMail
Dim MailBody
Set objError = Server.GetLastError()
%>
ASP 500 Error
<% MailBody = "Κωδικός λάθους: " & cstr(objerror.Number) & " (0x" & Hex(objError.Number) & ")" & chr(13) & _
"Κωδικός λάθους ASP: " & cstr(objerror.ASPCode) & chr(13) & _
"Περιγραφή: " & objerror.description & chr(13) & _
"Περιγραφή ASP: " & objerror.aspdescription & chr(13) & _
"Πηγή: " & objerror.source & chr(13) & _
"Path: " & Request.ServerVariables("PATH_TRANSLATED") & chr(13) & _
"Σελίδα: " & objerror.file & chr(13) & _
"Σειρά: " & objerror.line & chr(13) & _
"HTTP_REFERER: " & Request.ServerVariables("HTTP_REFERER") & chr(13) & _
"REMOTE_ADDR: " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & _
"FORM: " & Request.ServerVariables("REQUEST_FORM") & chr(13) & _
"Query String: " & Request.ServerVariables("QUERY_STRING")
MailBody = MailBody & chr(13) & "REQUEST.FORM: " & chr(13)
FOR each item in request.form
MailBody = MailBody & item & " = " & request.form(item) & chr(13)
Next
set objMail=CreateObject("CDONTS.NewMail")
objMail.Body=MailBody
objMail.to = "kpapadimos@greekgeeks.com"
objMail.from="error@fdsweb.com"
objMail.subject="De Gustibus - error " & Request.ServerVariables("PATH_INFO")
objMail.send
set objMail=nothing
%>
<%= replace(mailbody,chr(13),"
") %>
