%
Dim objError
Set objError = Server.GetLastError()
response.write "
"
%>
<% if isAdminIP() = False then %>
A server error has occured. We probably already know about this issue, however if continues please let us know.
<% end if %>
<% if isAdminIP() = True then %>
Error. (Shown to registered Admin IP Addresses only)
<%
ScriptInfo = ""
If len(objError.Description) > 0 then ScriptInfo = ScriptInfo & objError.Description & "
"
If len(objError.ASPCode) > 0 then ScriptInfo = ScriptInfo & "ASP Code : " & objError.ASPCode & "
"
If len(objError.Line) > 0 then ScriptInfo = ScriptInfo & "Line No : " & objError.Line & "
"
If len(objError.File) > 0 then ScriptInfo = ScriptInfo & "File : " & objError.File & "
"
If len(objError.Source) > 0 then ScriptInfo = ScriptInfo & "Source : " & objError.Source & "
"
If len(objError.ASPDescription) > 0 then ScriptInfo = ScriptInfo & "ASP Description : " & objError.ASPDescription & "
"
ScriptInfo = replace(ScriptInfo,"
","
" & VbCrLF) & "
"
VariableString = "SERVER_NAME,HTTP_HOST,URL,QUERY_STRING,SCRIPT_NAME,PATH_INFO,PATH_TRANSLATED,SERVER_PORT,LOCAL_ADDR,REMOTE_ADDR,HTTP_CF_CONNECTING_IP"
ThisString = split(VariableString,",")
for i = 0 to ubound(ThisString)
ScriptInfo = ScriptInfo & "" & ThisString(i) & " : " & request.servervariables(ThisString(i)) & "
" & VbCrLf
next
Set objError=Nothing
Response.write "
" & VbCrlF & ScriptInfo & ""
end if
%>
Back