<%
dim qname
dim yourname
qname=Request.Form("qname")
yourname=Request.Form("yourname")
If qname<>"" Then
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("chat.htm"), 1, False)
oldchat=RS.ReadAll
oldchat = Replace(oldchat,"","")
RS.Close
Set RS=FS.OpenTextFile(Server.MapPath("chat.htm"), 2, False)
RS.Write oldchat & now() & " - " & yourname & " says: " & qname & "
" & vbCrLf
RS.Close
Set RS=Nothing
Set FS=Nothing
End If
%>
Questions
Note: Questions are
monitored during events. For general questions, include your email address so we
can respond as time permits.