<% '************************************************************************* ' ASP Scripting: ' Filename: error_page.asp ' Written by: Wilbert Madarang ' Date: March 16, 2003 '************************************************************************* ' Description: Main Error Page '************************************************************************* ' Revision History: '************************************************************************* %>

<% Call printErrorStatus() %>

<% '************************************************************************* ' FUNCTION: printErrorStatus ' DESCRIPTION: This function is used to print the Error Status. ' PARAMETERS: ' RETURNS: '************************************************************************* Function printErrorStatus Dim strErrorStatus strErrorCode = Request( "error_code" ) If strErrorCode = "session_expiry" Then Response.Write "



" & vbCrLf Response.Write "Session Expiry Error

" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "  Your session has expired. Please click here to be returned to the home page. " & vbCrLf Response.Write "

" & vbCrLf Elseif strErrorCode = "insufficent_fields" Then Response.Write "



" & vbCrLf ' Response.Write "Insufficient fields entered. Please enter all the fields.

" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "

" & vbCrLf Response.Write "All fields are required. Please enter ALL the fields. Please click here to try again. " & vbCrLf Response.Write "

" & vbCrLf End If End Function %>