<%@ language="VBScript" codepage="65001" %> <% Option Explicit %> <% ' Enable/Disable debugging here Dim Debug : Set Debug = New clsDebug Debug.Enabled = DEBUGGING_ENABLED Dim lastError : Set lastError = Server.GetLastError() Dim lastErrorDescription : lastErrorDescription = "" If Not lastError Is Nothing Then lastErrorDescription = lastError.Description End If Dim validationError : validationError = False If DEBUGGING_ENABLED Then Debug.Print "lastErrorDescription", lastErrorDescription Else Response.Clear If lastErrorDescription <> ERROR_DESCRIPTION_VALIDATION Then Response.Status = "500 Internal Server Error" Else Response.Status = "200 OK" validationError = True End If End If Response.ContentType = "text/html" Response.Expires = 0 Dim errorpage : errorpage = LCase(Strip(Request.ServerVariables("SCRIPT_NAME"))) Dim errormsg : errormsg = ERROR_DESCRIPTION_DEFAULT_MESSAGE If validationError Then Select Case errorpage Case LCase(PAGE_BROWSE) errormsg = "You have tried to browse for Podcast series or topic that does not exist. Please use your back button and try again." Case LCase(PAGE_DOWNLOAD) errormsg = "You have tried to view or save a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_DOWNLOAD_MP3) errormsg = "You have tried to view or save a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_DOWNLOAD_MP4) errormsg = "You have tried to view or save a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_DOWNLOAD_PDF) errormsg = "You have tried to view or save a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_PLAYER) errormsg = "You have tried to listen to or watch a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_VIDEO_WINDOW) errormsg = "You have tried to listen to or watch a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_SUBSCRIBE) errormsg = "You have tried to subscribe to a Podcast that does not exist. Please use your back button and try again." Case LCase(PAGE_SEARCH_AND_CREATE_RSS) errormsg = "The Podcasts you were searching for do not exist. Please use your back button and try again." Case LCase(PAGE_CREATERSS) errormsg = "You have tried to generate a subscription that does not exist. Please use your back button and try again." End Select ElseIf lastErrorDescription = ERROR_DESCRIPTION_DATABASE Then errormsg = "The Podcasts/RSS site is not currently available. Please check back later." End If %>

<%= APPLICATION_TITLE %> Error

<%= errormsg %>

<% 'Call the End method to output all the debug values. Debug.End Set Debug = Nothing %>