[thelist] ASP question - User List Update

Wed Nov 5 12:07:12 CST 2003

I was able to answer my own question after doing a little research. I'm
posting the finalized script for anyone who has a similar need:

<%
'Set Constants
Const ForReading = 1, ForWriting = 2, ForAppending = 8

'find out this particular users name
name=request.Cookies("name")

'find out this particular users Color
color=request.Cookies("color")

Set fs = server.CreateObject("Scripting.FileSystemObject")

Set wfile = fs.OpenTextFile(server.mappath("users.dat"))

do while not wfile.AtEndOfStream
filecontent=wfile.ReadLine
if filecontent="<font face=Verdana size=2 color="& color &">"& name &"<br>"
then
filecontent=" "
end if
finalcontent=finalcontent & filecontent
loop

wfile.close
Set wfile=nothing
Set fs=nothing

' Open the data file for reading
Set objFS = Server.CreateObject ("Scripting.FileSystemObject")
set objFile = objFS.GetFile(server.mappath("users.dat"))

'write the new data to the file
set objFile = objFS.CreateTextFile(server.mappath("users.dat"), true)
objFile.WriteLine(finalcontent)
objFile.close
%>

<html>
<head>
<title>Logoff</title>
</head>
<body bgcolor="#FFFFFF" onLoad=window.close()>

<font face=Verdana size=2 color=000000>User Logged Off Of Chat Server</font>
</body>
</html>

Thanks!

~Qixsilver