default.asp example


<%@ Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body>

<p>Opening Page</p>

<p><a href="form.asp">Let's go to the form</a></p>

</body>
</html>

form.asp example


<%@ Language=VBScript %>
<%
Response.Buffer = True

' sets header and footer
dim header, footer
header = "<HTML>" & VBCrLf
header = header & "<HEAD>"  & VBCrLf
header = header & "</HEAD>" & VBCrLf
header = header & "<BODY>" & VBCrLf
footer = "</BODY>" & VBCrLf
footer = footer & "</HTML>"

if NOT isEmpty(Request.Form("searchRequestSubmit")) then
	' process code and sub routines here

	' code to set session variable and redirect to confirm.asp
	Session("GoForward") = "True"
	Response.Redirect "redirect.asp"
else
	Response.Write header
	Response.Write "<form name=""searchRequest"" action=""form.asp"" method=""post"">" & VBCrLf
	Response.Write "<p>Please enter confirmation number</p>" & VBCrLf
	Response.Write "<input type=""text"" name=""searchCriteria"" size=""5"">" & VBCrLf
	Response.Write "<input type=""submit"" value=""Search"" name=""searchRequestSubmit"">" & VBCrLf
	Response.Write "</form>" & VBCrLf
	Response.Write footer
end if
%>

redirect.asp example


<%@ Language=VBScript %>
<%
Response.Buffer = True

' checks for empty session variable, 
' otherwise display the page which refreshes to confirmcation.asp
if isEmpty(Session("GoForward")) then
	Response.Redirect "default.asp"
else%>

<html>
<head>
	<META HTTP-EQUIV="Refresh" CONTENT="1;URL=confirmation.asp">
</head>
<body>
</body>
</html>

<%end if%>

confirmation.asp example


<%@ Language=VBScript %>
<%
Response.Buffer = True

' checks for empty session variable,
' and redirects to main page
if isEmpty(Session("GoForward")) then
	Response.Redirect "default.asp"
else
' if session variable is present, display this code
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<table width="400">
	<tr><td>
<p>Thank you. Your request has been submitted to the IT Department. 
Your confirmation number is <b>xxx</b>. Please refer to this number 
when contacting the IT Department. You can view the status of your 
request by using the status page.</p>
	</td></tr>
</table>

</BODY>
</HTML>
<%
end if

' this will kill the session variable
Session.Abandon

' You could also use:
' Session("GoForward") = ""
%>