<% ''''''''''''''''''''''''''''''''''''''''''''''''''' ' © iXL - Los Angeles - 9-98 - Todd Grupe ''''''''''''''''''''''''''''''''''''''''''''''''''' Const forReading = 1, forWriting = 2, forAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim objFSO, objFile strPathInfo = "poll.txt" strPhysicalPath = Server.MapPath(strPathInfo) Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(strPhysicalPath) Dim objFileTextStream Set objFileTextStream = objFile.OpenAsTextStream(forReading, TristateUseDefault) Dim strLine Question = objFileTextStream.ReadLine objFileTextStream.Close %>
<% If Request("NoneSelected") <> "" Then %>
Please select an answer before clicking "Submit".
<% End If %>
<% = Question %>
Yes
No