TJ Fiebich
5/31/2002 4:16:00 AM
I have 3 asp pages.
The first page has 3 radio buttons, click the radio button you want then hit
submit and it goes to another ASP page that has a 'select case statement'
which has differant values for the case's depending on the radio button that
was chosen. There is a redirect in each case statement, which goes to the
3rd ASP page and depending on the value of the Case statement in the 2nd
page will display a certain amount of text fields on the 3rd ASP page. Make
sense? Code is below, please see what I did wrong,
Thanks
----
Page1
----
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%
' Prevent Caching
Response.Expires = 0
Response.ExpiresAbsolute = now - 1
Response.CacheControl = "no-cache"
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
%>
</HEAD>
<BODY>
<form method="post" action="grab_acct.asp">
<INPUT type="radio" value="1" name="acct">Account 1<br>
<INPUT type="radio" value="2" name="acct">Account 2<br>
<INPUT type="radio" value="3" name="acct">Account 3<br>
<INPUT type="Submit" value="Next" name="Submit">
</form>
</BODY>
</HTML>
----
Page 2
----
<%@ Language=VBScript %>
<% option explicit %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<%
' Prevent Caching
Response.Expires = 0
Response.ExpiresAbsolute = now - 1
Response.CacheControl = "no-cache"
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
%>
</HEAD>
<BODY>
<%
Select Case Request.Form("acct")
Case "1"
'Const varLOGIN = 1
Response.Write("<input type=""hidden"" Name=""LoginNm""
value=""1""><br>")
'Const varEMAIL = 3
Response.Write("<input type=""hidden"" Name=""EmailNm""
value=""3""><br>")
'Const varWEBDIR = 1
Response.Write("<input type=""hidden"" Name=""WebDirNm""
value=""9""<br>")
Response.Redirect "logusrpic.asp"
Case "2"
'Const varLOGIN = 1
Response.Write("<input type=""hidden"" Name=""LoginNm""
value=""3""><br>")
'Const varEMAIL = 3
Response.Write("<input type=""hidden"" Name=""EmailNm""
value=""5""><br>")
'Const varWEBDIR = 1
Response.Write("<input type=""hidden"" Name=""WebDirNm""
value=""2""<br>")
Response.Redirect "logusrpic.asp"
Case "3"
'Const varLOGIN = 1
Response.Write("<input type=""hidden"" Name=""LoginNm""
value=""8""><br>")
'Const varEMAIL = 3
Response.Write("<input type=""hidden"" Name=""EmailNm""
value=""7""><br>")
'Const varWEBDIR = 1
Response.Write("<input type=""hidden"" Name=""WebDirNm""
value=""6""<br>")
Response.Redirect "logusrpic.asp"
End Select
%>
</BODY>
</HTML>
---
page3
---
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
Dim varLOGIN, varEMAIL, varWEBDIR
varLOGIN = Request.Form("LoginNm")
varEMAIL = Request.Form("EmailNm")
varWEBDIR = Request.Form("WebDirNm")
Dim varLOGINCNTR
For varLOGINCNTR = 1 to varLOGIN
Response.Write("<input type=""text"" name=""Login"" value=""""><br>")
Next
Response.Write "<p>"
Dim varEMAILCNTR
For varEMAILCNTR = 1 to varEMAIL
Response.Write("<input type=""text"" name=""Login"" value=""""><br>")
Next
Response.Write "<p>"
Dim varWEBDIR
For varWEBDIR = 1 to varWEBDIR
Response.Write("<input type=""text"" name=""Login"" value=""""><br>")
Next
%>
</BODY>
</HTML>