<%
dim a
dim n
dim u
a=Request.Form("answers")
n=Request.Form("pollnumber")
u=Request.Form("username")
q=Request.Form("question1")
a1=Request.Form("A1")
a2=Request.Form("A2")
a3=Request.Form("A3")
a4=Request.Form("A4")
a5=Request.Form("A5")
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 & ":" & u & ":" & q & ":" & a1 & ":" & a2 & ":" & a3 & ":" & a4 & ":" & a5 & ":" & date() & "|"
RS.Close
Set RS=Nothing
Set FS=Nothing
end if
%>
Thank You
Your Answer Has Been Received
ram