Site temporarily down for maintenance.
<% sendEmail = vbnullstring ''on error resume next if err.number=0 then tempErrVar="n/a" else sendEmail = "T" tempErrVar=" Source=" &err.Source &", number="&err.number&",description="&err.description&"

" end if Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL,tempVar tempVar="" '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 ''//' on error resume next ''//' bakCodepage = Session.Codepage ''//' Session.Codepage = 1252 ''//' on error goto 0 ''//' 'Response.Write Server.HTMLEncode(objASPError.Category) ''//' tempVar = tempVar & Server.HTMLEncode(objASPError.Category) & "
" ''//' If objASPError.ASPCode > "" Then ''//' tempVar = tempVar & Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & "
" ''//' End if ''//' If objASPError.ASPDescription > "" Then ''//' tempVar = tempVar & Server.HTMLEncode(objASPError.ASPDescription) & "
" ''//' elseIf (objASPError.Description > "") Then ''//' tempVar = tempVar & Server.HTMLEncode(objASPError.Description) & "
" ''//' end if tempVar = tempVar & Server.HTMLEncode(objASPError.Category) & "
" If objASPError.ASPCode <> vbnullstring Then sendEmail = "T" ''tempVar = tempVar & "ASPCode: " & Server.HTMLEncode(" (0x" & Hex( objASPError.ASPCode) & ")" ) & "
" tempVar = tempVar & "ASPCode: " & Server.HTMLEncode(objASPError.ASPCode) & "
" End if If SQL <> vbnullstring Then tempVar = tempVar & "SQL Run: " & Server.HTMLEncode(SQL) & "
" End if If query <> vbnullstring Then tempVar = tempVar & "SQL Run: " & Server.HTMLEncode(query) & "
" End if If objASPError.Number <> vbnullstring Then tempVar = tempVar & "Number: " & Server.HTMLEncode(objASPError.Number) & "
" End if If objASPError.ASPDescription <> vbnullstring Then tempVar = tempVar & "ASPDescription: " & Server.HTMLEncode(objASPError.ASPDescription) & "
" end if If objASPError.Description <> vbnullstring Then tempVar = tempVar & "Description: " & Server.HTMLEncode(objASPError.Description) & "
" end if If objASPError.Column <> vbnullstring Then tempVar = tempVar & "Column: " & Server.HTMLEncode(objASPError.Column) & "
" end if If objASPError.File <> vbnullstring Then tempVar = tempVar & "File: " & Server.HTMLEncode(objASPError.File) & "
" end if If objASPError.Line <> vbnullstring Then tempVar = tempVar & "Line: " & Server.HTMLEncode(objASPError.Line) & "
" end if If objASPError.Number <> vbnullstring Then tempVar = tempVar & "Number: " & Server.HTMLEncode(objASPError.Number) & "
" end if If objASPError.Source <> vbnullstring Then tempVar = tempVar & "objASPError.Source: " & Server.HTMLEncode(objASPError.Source) & "
" end if blnErrorWritten = False ' Only show the Source if it is available and the request is from the same machine as IIS If objASPError.Source > "" Then sendEmail = "T" strServername = LCase(Request.ServerVariables("SERVER_NAME")) strServerIP = Request.ServerVariables("LOCAL_ADDR") strRemoteIP = Request.ServerVariables("REMOTE_ADDR") If (strServername = "localhost" Or strServerIP = strRemoteIP) And objASPError.File <> "?" Then tempVar = tempVar & Server.HTMLEncode(objASPError.File) & "
" If objASPError.Line > 0 Then tempVar = tempVar & ", line " & objASPError.Line & "
" End if If objASPError.Column > 0 Then tempVar = tempVar & ", column " & objASPError.Column & "
" End if tempVar = tempVar & Server.HTMLEncode(objASPError.Source) & "
" If objASPError.Column > 0 Then tempVar = tempVar & String((objASPError.Column - 1), "-") & "^
" End if 'Response.Write "" tempVar = tempVar & Server.HTMLEncode(objASPError.Source) & "
" blnErrorWritten = True End If End If If Not blnErrorWritten And objASPError.File <> "?" Then tempVar = tempVar & "" & Server.HTMLEncode(objASPError.File) & "
" If objASPError.Line > 0 Then tempVar = tempVar & ", line " & objASPError.Line & "
" End If If objASPError.Column > 0 Then tempVar = tempVar & ", column " & objASPError.Column & "
" End If End If %> <% machine = request.ServerVariables("LOCAL_ADDR") & " - " & request.ServerVariables("REMOTE_ADDR") text = text & "=== " & Application("Environment") & " 500 ERROR ===========================

" text = text & "The following page errored on the " & Application("Environment") & " site:

" text = text & "Errors: " & tempVar & "

" if Application("JDADBConnectionString") <> vbnullstring then text = text & "App String: " & Application("JDADBConnectionString") & "

" end if text = text & "Form Data: " & Server.HTMLEncode(Request.Form) & "
" text = text & "Browser: " & Server.HTMLEncode(Request.ServerVariables("HTTP_USER_AGENT"))& "
" text = text & "Page: " & Request.ServerVariables("SCRIPT_NAME") & "
" text = text & "Querystring: " & Server.HTMLEncode(Request.QueryString) & "
" text = text & "Current ERR value: " & tempErrVar & "
" if SQL <> vbnullstring then text = text & "
SQL: " & SQL & "
" end if if query <> vbnullstring then text = text & "
query: " & query & "
" end if text = text & "Server: " & machine & "
" tempTo = "Todd Sullivan ,Jatin Setia " tempFrom = "Web Errors " ''tempBCC = "Todd Sullivan " tempSubject = "JDA.com Webserver Email: " & Application("Environment") & " 500 Error" tempMessage = text %> <% if Application("Environment") = "dev" then %> <%= text %>

tempErrVar: <%= tempErrVar %> <% end if %> <% if sendEmail <> vbnullstring then %> Mail Sent! <% end if %> <% ' Turn "error-handling" back off... after the next line the ' script will break as normal if any errors happen. On Error Goto 0 %> <% Set objASPError = nothing %> <% ' Error Handler If Err.Number <> 0 Then ' Clear response buffer Response.Clear ' Action sensitive to error Select Case Err.Number Case "" ' Specific error messages ' Placeholder for specific error message code ' You can handle custom errors here Case Else ' General Error Response If IsObject(objConnection) Then If objConnection.Errors.Count > 0 Then %> Database Connection Object <% For intLoop = 0 To objConnection.Errors.Count - 1 %> Error No: <%= objConnection.Errors(intLoop).Number %>
Description: <%= objConnection.Errors(intLoop).Description %>
Source: <%= objConnection.Errors(intLoop).Source %>
SQLState: <%= objConnection.Errors(intLoop).SQLState %>
NativeError: <%= objConnection.Errors(intLoop).NativeError %>

<% Next End If End If If Err.Number <> 0 Then %> Page Error Object
Error Number <%= Err.Number %>
Error Description <%= Err.Description %>
Source <%= Err.Source %>
LineNumber <%= Err.Line %>

<% End If End Select End If %>