N
Need Help Bad
can anyone pick out anything wrong in this code? for some
reason it is screwing my table structure all up. When I
take out the code everything looks ok again...
It's .asp
<font face="Verdana" size="2">
<p>
<!--webbot bot="PurpleText" PREVIEW="This page performs
many functions, and only the text within each table will
be activated when that function is called.
" --></p>
</font>
<%
CMD = Request.Querystring("CMD")
Select Case CMD
Case "WaitAuth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you</b>
<p>Your e-mail address has been confirmed and you will
shortly receive an e-mail containing your details.<br>
As the registration is processed manually, there may
be a short wait until your account is activated.</p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user is
awaiting authentication" --></font></td>
</tr>
</table>
<%Case "Mail","NoAuth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you
<%=Session(appName&"UserName")%> </b>
<p>An e-mail has been sent to your last registered e-
mail address containing
your login password.</p>
<p>It should arrive shortly. Thank you for your
patience.</p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
requested their password" --></font></td>
</tr>
</table>
<%Case "Login","Auth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for logging in
<%=Session(appName&"UserName")%> </b>
<p>Where to from here?</p>
<p>The text for this message will need to be
modified.<br>
The user has logged in, and now needs to know what
options are available to
them.</p>
<p><a href="register.asp?UserUpdate=True">Update
registration details</a></p>
<p><a href="includes/examples/test_security.asp">Test
secure page</a></p>
</font>
<p><font size="2" face="Verdana">
<!--webbot bot="PurpleText" PREVIEW="The user has just
logged in" --></font></td>
</tr>
</table>
<%Case "New"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for registering
</b>
<p>The text for this message will need to be
modified.<br>
The new user has registered, and now needs to know
what options are
available to them.</p>
<% If Request.Querystring("Mail") = "True" OR
Request.Querystring("Mail") = "Confirm" then%>
<p>An e-mail will be arriving shortly with your login
details and web
address.<br>
You will need to use the link contained in the email
to confirm your e-mail
address.</p>
<%end if%>
<%If Request.Querystring("Mail")="Confirm" OR
Request.Querystring("Mail")="Wait" then%>
<p>We will then contact you when the account is
activated. <%End if%></p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
registered. They may need to know their details are being
emailed." --></font></td>
</tr>
</table>
<%Case "Update"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for updating
your record <%=Session(appName&"UserName")%> </b>
<% If Request.Querystring("Mail") = "True" then%>
<p>As you have changed your e-mail address, an e-mail
will be arriving shortly with your new login details or
password for the account.</p>
<%Else%>
<p>You may continue browsing our web </p>
<%End if%>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
updated their record.
If authentication is required, then they need to know an
email has been sent." --></font></td>
</tr>
</table>
<%Case "NoMail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana" size="2"><b>I'm
sorry, but the login
you are using does not contain an E-mail
address.</b><p><a href="login.asp">
Go back and login</a></p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
tried to email their password, but the email address is
null or invalid" --></font></td>
</tr>
</table>
<%Case "NoCC"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana" size="2"><b>You
must pay via <%=CCProvider%> before registering</b><br>
[Provide user with a <%=CCProvider%> link]
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
tried enter the registration page before entering CC
details" --></font></td>
</tr>
</table>
<%Case "CCFail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Sorry, but there appears to be a problem with
your <%=CCProvider%> details</b><br>
Please contact the administrator (<%=Application
(appName&"m_strFrom")%>) for more details or try again.<br>
<%If Request.Querystring("Txn_id")&"" <> "" then%>
Please quote the <%=CCProvider%> transaction number <%
=Txn_id%> in any correspondence
<%end if%>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has an
invalid response after entering CC details" --></font></td>
</tr>
</table>
<%Case "SessionFail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><p><b>Invalid Session</b></p>
Please ensure Cookies are enabled and try again.<br>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has an
invalid Session value or has cookies turned off" --
</table>
<%Case "Expired"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><p><b>I'm sorry, your account expired on <%
=Request.Querystring("dt")%></b></p>
You will need to contact the administrator (<%
=Application(appName&"m_strFrom")%>) for information to
extend your registration or open a new account.<br>
<p>
<!--webbot bot="PurpleText" PREVIEW="The users account
has expired. They will need to reregister or have their
time extended" --></font></td>
</tr>
</table>
<%Case Else%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Errr.... What are you
doing here? </b></font>
<p><font face="Verdana" size="2"><a
href="login.asp">Go back and login!!</a>
<%End Select%></font></p>
<p><font size="2" face="Verdana">
<!--webbot bot="PurpleText" PREVIEW="The user accessed
the success page without any function." --></font></td>
</tr>
Administrator</a></p>
</font><%End if%>
reason it is screwing my table structure all up. When I
take out the code everything looks ok again...
It's .asp
<font face="Verdana" size="2">
<p>
<!--webbot bot="PurpleText" PREVIEW="This page performs
many functions, and only the text within each table will
be activated when that function is called.
" --></p>
</font>
<%
CMD = Request.Querystring("CMD")
Select Case CMD
Case "WaitAuth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you</b>
<p>Your e-mail address has been confirmed and you will
shortly receive an e-mail containing your details.<br>
As the registration is processed manually, there may
be a short wait until your account is activated.</p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user is
awaiting authentication" --></font></td>
</tr>
</table>
<%Case "Mail","NoAuth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you
<%=Session(appName&"UserName")%> </b>
<p>An e-mail has been sent to your last registered e-
mail address containing
your login password.</p>
<p>It should arrive shortly. Thank you for your
patience.</p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
requested their password" --></font></td>
</tr>
</table>
<%Case "Login","Auth"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for logging in
<%=Session(appName&"UserName")%> </b>
<p>Where to from here?</p>
<p>The text for this message will need to be
modified.<br>
The user has logged in, and now needs to know what
options are available to
them.</p>
<p><a href="register.asp?UserUpdate=True">Update
registration details</a></p>
<p><a href="includes/examples/test_security.asp">Test
secure page</a></p>
</font>
<p><font size="2" face="Verdana">
<!--webbot bot="PurpleText" PREVIEW="The user has just
logged in" --></font></td>
</tr>
</table>
<%Case "New"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for registering
</b>
<p>The text for this message will need to be
modified.<br>
The new user has registered, and now needs to know
what options are
available to them.</p>
<% If Request.Querystring("Mail") = "True" OR
Request.Querystring("Mail") = "Confirm" then%>
<p>An e-mail will be arriving shortly with your login
details and web
address.<br>
You will need to use the link contained in the email
to confirm your e-mail
address.</p>
<%end if%>
<%If Request.Querystring("Mail")="Confirm" OR
Request.Querystring("Mail")="Wait" then%>
<p>We will then contact you when the account is
activated. <%End if%></p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
registered. They may need to know their details are being
emailed." --></font></td>
</tr>
</table>
<%Case "Update"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Thank you for updating
your record <%=Session(appName&"UserName")%> </b>
<% If Request.Querystring("Mail") = "True" then%>
<p>As you have changed your e-mail address, an e-mail
will be arriving shortly with your new login details or
password for the account.</p>
<%Else%>
<p>You may continue browsing our web </p>
<%End if%>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
updated their record.
If authentication is required, then they need to know an
email has been sent." --></font></td>
</tr>
</table>
<%Case "NoMail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana" size="2"><b>I'm
sorry, but the login
you are using does not contain an E-mail
address.</b><p><a href="login.asp">
Go back and login</a></p>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
tried to email their password, but the email address is
null or invalid" --></font></td>
</tr>
</table>
<%Case "NoCC"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana" size="2"><b>You
must pay via <%=CCProvider%> before registering</b><br>
[Provide user with a <%=CCProvider%> link]
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has
tried enter the registration page before entering CC
details" --></font></td>
</tr>
</table>
<%Case "CCFail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Sorry, but there appears to be a problem with
your <%=CCProvider%> details</b><br>
Please contact the administrator (<%=Application
(appName&"m_strFrom")%>) for more details or try again.<br>
<%If Request.Querystring("Txn_id")&"" <> "" then%>
Please quote the <%=CCProvider%> transaction number <%
=Txn_id%> in any correspondence
<%end if%>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has an
invalid response after entering CC details" --></font></td>
</tr>
</table>
<%Case "SessionFail"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><p><b>Invalid Session</b></p>
Please ensure Cookies are enabled and try again.<br>
<p>
<!--webbot bot="PurpleText" PREVIEW="The user has an
invalid Session value or has cookies turned off" --
</tr>
</table>
<%Case "Expired"%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><p><b>I'm sorry, your account expired on <%
=Request.Querystring("dt")%></b></p>
You will need to contact the administrator (<%
=Application(appName&"m_strFrom")%>) for information to
extend your registration or open a new account.<br>
<p>
<!--webbot bot="PurpleText" PREVIEW="The users account
has expired. They will need to reregister or have their
time extended" --></font></td>
</tr>
</table>
<%Case Else%>
<table border="0" cellpadding="0" cellspacing="0"
style="border-collapse: collapse" bordercolor="#111111"
width="100%">
<tr>
<td width="100%"><font face="Verdana"
size="2"><b>Errr.... What are you
doing here? </b></font>
<p><font face="Verdana" size="2"><a
href="login.asp">Go back and login!!</a>
<%End Select%></font></p>
<p><font size="2" face="Verdana">
<!--webbot bot="PurpleText" PREVIEW="The user accessed
the success page without any function." --></font></td>
</tr>
<a href="admin_main.asp">I see you are an
Administrator</a></p>
</font><%End if%>