File: D:/HostingSpaces/RImmers/duitsedog.tk/wwwroot/error/error.asp
<%
Option Explicit
Const c_blnDebug = False
On Error Resume Next
Dim strMailHost, strEmailTo, strNameTo, strEmailFrom, strNameFrom, strSubject, strUserName, strUserPass, strGebrNaam, _
strBody, strUrl
strUrl = "www.stoeligans.nl"
strMailHost = "smtp.wildher.eu"
strEmailTo = "robert@wildher.nl"
strNameTo = "Robert Immers"
strEmailFrom = "info@stoeligans.nl"
strNameFrom = "Stoeligans"
strSubject = "Error Report"
strUserName = "wwwdeamon"
strUserPass = "wildher123"
If Not IsNull(Session("Debi_Id")) Then
strGebrNaam = Session("Debi_Id")
Else
strGebrNaam = "Unknown"
End If
If Session("blnInTransaction") Then
Session("objDB").RollbackTrans
Set Session("objDB") = Nothing
Session("intTransDepth") = 0
Session("blnInTransaction") = False
Session("blnInRollback") = False
End If
Const lngMaxFormBytes = 200
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP
Dim strMethod, lngPos, datNow, strQueryString
If Response.Buffer Then
Response.Clear
Response.Status = "500 Internal Server Error"
Response.ContentType = "text/html"
Response.Expires = 0
End If
Set objASPError = Server.GetLastError
Dim bakCodepage, strSql, strCategory,_
strErrCode, strErrDesc, strASPError,_
strBrowserType, strMethodPost, strMethodPostdata
bakCodepage = Session.Codepage
Session.Codepage = 1252
strCategory = objASPError.Category
If objASPError.ASPCode > "" Then
strErrCode = objASPError.ASPCode & " (0x" & Hex(objASPError.Number) & ")"
Else
strErrCode = CStr(objASPError.Number) & " (0x" & Hex(objASPError.Number) & ")"
End If
If objASPError.ASPDescription > "" Then
strErrDesc = objASPError.ASPDescription
elseIf (objASPError.Description > "") Then
strErrDesc = objASPError.Description
end if
If Instr(strErrDesc,"[sql]") Then
strSql = Mid(strErrDesc,InstrRev(strErrDesc,"[sql]")+ 5)
End If
blnErrorWritten = False
strServername = LCase(Request.ServerVariables("SERVER_NAME"))
strServerIP = Request.ServerVariables("LOCAL_ADDR")
strRemoteIP = Request.ServerVariables("REMOTE_ADDR")
If objASPError.Source > "" Then
If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then
strASPError = objASPError.File
If objASPError.Line > 0 Then strASPError = strASPError & ", line " & objASPError.Line
If objASPError.Column > 0 Then strASPError = strASPError & ", column " & objASPError.Column
strASPError = strASPError & objASPError.Source
If objASPError.Column > 0 Then strASPError = strASPError & String((objASPError.Column - 1), "-") & "^"
blnErrorWritten = True
End If
End If
If Not blnErrorWritten And objASPError.File <> "?" Then
strASPError = strASPError & objASPError.File
If objASPError.Line > 0 Then strASPError =strASPError & ", line " & objASPError.Line End If
If objASPError.Column > 0 Then strASPError = strASPError & ", column " & objASPError.Column End If
End If
strBrowserType = Request.ServerVariables("HTTP_USER_AGENT")
strMethod = Request.ServerVariables("REQUEST_METHOD")
If strMethod = "POST" Then
strMethodPost = "POST " & Request.TotalBytes & " bytes to "
End If
strMethodPost = strMethodPost & Request.ServerVariables("SCRIPT_NAME")
lngPos = InStr(Request.QueryString, "|")
If lngPos > 1 Then
strMethodPost = strMethodPost & "?" & Left(Request.QueryString, (lngPos - 1))
End If
If strMethod = "POST" Then
strMethodPostdata = "POST data:"
If Request.TotalBytes > lngMaxFormBytes Then
strMethodPostdata = strMethodPostdata & (Left(Request.Form, lngMaxFormBytes)) & " . . ."
Else
strMethodPostdata = strMethodPostdata & Request.Form
End If
End If
%>
<html>
<head>
<title>Server Report: </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK rel="stylesheet" type="text/css" href="http://ncrv.wildher.com/css/default.css">
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
</head>
<body>
<table border="0" cellspacing="0" cellpadding="0">
<tr height="50">
<td> </td>
</tr>
<tr>
<td align="center"><h1>Storing</h1></td>
</tr>
<tr valign="top" height="140">
<td>Wegens een storing is het op dit moment niet mogelijk om gebruik te maken van deze pagina.<br><br>Onze excuses voor het ongemak, probeert u het later nog eens.</td>
</tr>
<tr valign="top">
<td align="center"><input type="button" value="Sluiten" onclick="parent.close();"></td>
</tr>
</table>
<%
If c_blnDebug Then
Response.Write("<p><font color=""red"">" & Server.HTMLEncode(strASPError) & "<br><br>" & Server.HTMLEncode(strErrDesc) & "</font>")
Else
strBody = "" &_
"<table width=2000>" &_
"<tr>" &_
"<td colspan=2><font face=verdana,arial size=3><b>Site Information</b></font></td>" &_
"</tr>" &_
"<tr>" &_
"<td width=200><font face=verdana,arial size=2><b>Server Name:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strServername) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Server IP-adres:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strServerIP) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Remote IP-adres:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strRemoteIP) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>URL:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strUrl) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Employee:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(Session("Empl_Name")) & "</font></td>" &_
"</tr>" &_
"</table>" &_
"<p>" &_
"<table width=2000>" &_
"<tr>" &_
"<td colspan=2><font face=verdana,arial size=3><b>Technical Information</b></font></td>" &_
"</tr>" &_
"<tr>" &_
"<td width=200><font face=verdana,arial size=2><b>Error Type:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strCategory) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Error Code:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strErrCode) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Error Description:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strErrDesc) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>ASP Error:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strASPError) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>SQL statement:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strSQL) & "</font></td>" &_
"</tr>" &_
"</table>" &_
"<p>" &_
"<table width=2000>" &_
"<tr>" &_
"<td colspan=2><font face=verdana,arial size=3><b>Browser Information</b></font></td>" &_
"</tr>" &_
"<tr>" &_
"<td width=200><font face=verdana,arial size=2><b>Browser Type:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strBrowserType) & "</font></td>" &_
"</tr>" &_
"</table>" &_
"<p>" &_
"<table width=2000>" &_
"<tr>" &_
"<td colspan=2><font face=verdana,arial size=3><b>Page Information</b></font></td>" &_
"</tr>" &_
"<tr>" &_
"<td width=200><font face=verdana,arial size=2><b>Page:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strMethod) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Post Info:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strMethodPost) & "</font></td>" &_
"</tr>" &_
"<tr>" &_
"<td><font face=verdana,arial size=2><b>Post Data:</b></font></td>" &_
"<td><font face=verdana,arial size=2>" & Server.HTMLEncode(strMethodPostdata) & "</font></td>" &_
"</tr>" &_
"</table>"
Dim objMail
datNow = Now()
On Error Resume Next
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = strMailHost
objMail.From = strEmailFrom
objMail.FromName = strEmailFrom
objMail.AddAddress strEmailTo, strNameTo
objMail.Subject = strSubject
objMail.UserName = strUserName
objMail.Password = strUserPass
objMail.IsHTML = True
objMail.Body = strBody
objMail.Send ' send message
Set objMail = Nothing
End If
%>
</body>
</html>