Source Code for Chat_Form.asp



<!-- #include file="i_header.asp" -->
<!--Begin Body Content-->
<%Session("Exited")="False"%>

<table width = "600" border = "0" align = "center">
<tr>
<td> <h1 class = "fancy">Hot Springs Chat Room</h1>
<h2 class = "greentext" align = "center">Request Page</h2>
<!--p align="center"><b>Click to view the chat <a href="Schedule.asp">room
schedule</a>, or to <a href="ScheForm.asp">schedule a chat</a>.</b></p-->
<p align="center"><font color="#000000">To enter the Hot Springs Chat Room
now, fill out the form below and click &quot;Enter Chat Room&quot;. </font></p>
<%
If Request.Querystring("NoInfo")="True" then
Response.Write "<p><font color=""#FF0000"">Please enter your name and select a refresh rate.</font></p>"
End If

If Request.Querystring("BadName")="True" then
Response.Write "<p><font color=""#FF0000"">You have selected a name that is already in use, please select another.</font></p>"
End If
%>
<form name="Chat_Form" action="Enter.asp" method="post">
<p><strong><u>Chat Room Name:</u></strong></p>
<br />
<%
If Request.Querystring("BadName")="True" then
Response.Write "<input type='text' name='Name' value='" & Session("Name") & "' maxlength=""20"" />"

else
Response.Write "<input type=""text"" name= ""Name"" maxlength=""20"" />"
End If
%>
<p><strong><u>E-Mail(optional):</u></strong></p>
<br />
<input type="text" maxlength="150" name="Email" size="50" />
<br />
<p><strong><u>Select Refresh Rate: </u></strong></p>
<br />
<input type="radio" name="refresh" value="15000" checked />
15 Seconds,
<input type="radio" name="refresh" value="30000" />
30 Seconds,
<input type="radio" name="refresh" value="45000" />
45 Seconds <br />
<p>
<input name="Submit" type="Submit" value="Enter Chat Room">
<input name="reset" type="reset" />
</p>
</form>
<p align="center"><a href="ASPSourceCode.asp">View ASP Source</a><br>
<br>
</p>
</td>
</tr>
</table>
<script language="JavaScript">
//page specific variables
pgback = bgimg.darkgreen;
pgnav = navimg.rockimg;

function enter(){
chatWin = window.open("Enter.asp","chatWin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,WIDTH=800,HEIGHT=600");
chatWin.location.href = "Enter.asp"
if(navigator.appVersion.indexOf("4") != -1){
chatWin.moveTo(0,0);
}

}
</script>
<!--End Body Content-->
<!-- #include file="i_footer.asp" -->

<--Back