<%
'=============================================================================
' FILE: includes/response.asp
' PURPOSE: Styled error and success response pages for form submissions
' USAGE: Include this file, then call ShowError() or ShowSuccess()
'=============================================================================
Sub ShowError(errorMessage, backUrl)
%>
<%
Dim respTheme
respTheme = Request.Cookies("theme")
If respTheme = "" Then respTheme = "bg-theme1"
%>
<%
End Sub
Sub ShowSuccess(successMessage, redirectUrl, entityName)
%>
<%
Dim succTheme
succTheme = Request.Cookies("theme")
If succTheme = "" Then succTheme = "bg-theme1"
%>
Success!
<%=Server.HTMLEncode(successMessage)%>
Redirecting to <%=Server.HTMLEncode(entityName)%>...