|
% '************************************************************************************** ' NAME: 404.asp ' DESCRIPTION: Displays the default error page for 'file not found' ' HISTORY: ' ' DATE Developer DESCRIPTION ' ---------- -------- ----------------------------------------------------------- ' ?? ? Created by IIS for displaying the 404 page ' '************************************************************************************** %> <% on error resume next ' SRD - 10/27/2003 - Commented out all the mailer information due to some issues with the ' Interland server not passing the server varaiables in the messages. ' The variable below will capture two things to place into the error ' message that is sent via e-mail. The first will be a value called ' sRef, which is the referring page where a person came from. The ' second will be called sReq, which is the file that was requested. ' If sRef is empty, it means that the visitor most likely typed in ' the address or used a bookmark. 'MissingPage = Request.ServerVariables("Query_String") ' Set Mailer = Server.CreateObject("SMTPsvg.Mailer") ' To test this page inside of USAA you need to comment out the ' smtp01.netservers.net line and use mail.usaa.com as your RemoteHost ' Mailer.RemoteHost = "smtp01.netservers.net" ' Mailer.RemoteHost = "mail.usaa.com" 'Mail Header ' Mailer.FromName = "The USAA Educational Foundation Errors" ' Mailer.FromAddress = "feedback@usaaedfoundation.org" ' Mailer.FromAddress = "site.feedback@usaa.com" ' To test this page inside of USAA you need to comment out the ' AddRecipient field and add the e-mail address of the person ' doing the testing. You can add multiple recipients by repeating ' this line and listing another person. ' Mailer.AddRecipient "The USAA Educational Foundation", "site.feedback@usaa.com" ' Mailer.AddRecipient "IAD Support", "IADSupport@usaa.com" ' Mailer.AddRecipient "Laura Moran", "laura.moran@usaa.com" ' Mailer.Subject = "The USAA Educational Foundation - Missing File" 'Mail Body -- explicitly stated to format the email ' Mailer.BodyText = "Site visitor could not find " & MissingPage & vbcrlf & vbcr ' If Mailer.SendMail then ' Msg = "
If this file is in your bookmarks, please update them." ' Else ' Msg = "For some reason, your request was not processed successfully. Please press the back button on your browser and try again later. Thank you." ' End If ' In the middle of this page, we will do a response.write to display ' the appropriate message. ' Mario was here %>

|
|
|