<% 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