<%
dim a
dim n
a=Request.Form("answers")
n=Request.Form("pollnumber")
if a <> "" then
Set FS=Server.CreateObject("Scripting.FileSystemObject")
Set RS=FS.OpenTextFile(Server.MapPath("answers.txt"), 1, False)
oldanswers=RS.ReadAll
RS.Close
Set RS=FS.OpenTextFile(Server.MapPath("answers.txt"), 2, False)
RS.Write oldanswers & "q:" & n & ":" & a & "|"
RS.Close
Set RS=Nothing
Set FS=Nothing
end if
%>
Thank You
Your Answer Has Been Received
ram