<%
'
fp = Server.MapPath("tag.txt")
'
'
dim TheText
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set theTextFile = FSO.OpenTextFile(fp)
While Not theTextFile.AtEndOfStream
TheText = TheText & theTextFile.ReadLine
Wend
theTextFile.Close
dim msg1, handle, url, TheTag
msg1=request.form("msg")
handle=request.form("handle")
url=request.form("url")
if msg1 <> "" then
msg1 = replace(msg1, "<", "<")
handle = replace(handle, "<", "<")
url = replace(url, "<", "<")
Set theTextFile = fso.CreateTextFile(fp, true)
TheTag = "" & handle & ": " & msg1
theTextFile.WriteLine(TheTag & "
" & TheText)
theTextFile.Close
TheTag = TheTag & "
"
else
TheTag = ""
end if
'
' Begin editable HTML here
'
%>
vTag - Import Fanatic