<%@ Language=VBScript %>
Math Chat Room
<% ' = Request.Form("Name") & "Name before if" %>
<% ' option explicit didn't work
Session("name")=Request.Form("Name")
If trim(Request.Form("Name"))="" Then %>
Welcome to the Math Chat Room
The Math Chat Room allows you to discuss Math
problems while using a math expressions editor.
Type your name or nickname below,
then click the Enter button.
This program requires Internet Explorer 6.0 or recent versions of Mozilla/Firefox/Netscape.
If you are using Internet Explorer you must install MathPlayer which is a free download.
Mozilla/Firefox/Netscape do not require any other program.
This page also is grateful to the author of ASCIIMathML which it is based on.
<% ' = Request.Form("Name") & "Name" %>
<%
Else
If Not IsObject(Application("users")) Then
'Application.Lock
' Set Application("users") = _
' Server.CreateObject("Scripting.Dictionary")
'Application.Unlock
End If
Session("name") = Request.Form("Name")
'Application.Lock
'Application("users").Add Session("name"), Time
'Application.Unlock
If Not IsEmpty(Application("conversation")) Then
Application.Lock
Application("conversation") = " " & _
"
" & Application("conversation") & _
time & " " & Session("name") & _
" Entered Math Chat
"
'try next
'Application("conversation") = " testing the else"
Application.Unlock
End If
Response.Redirect "mathchat.asp"
End If
'Response.Redirect "mathchat.asp"
%>