%@LANGUAGE=VBScript ENABLESESSIONSTATE=False%>
<%option explicit%>
<%
Dim BR
Dim CRLF
Dim sHTML
Dim conn
CRLF = Chr(13) & Chr(10)
BR = "
"
sHTML=""
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("ConnectionString")
if request("submitted") then
sHTML="Thanks for participating in our poll.
"
else
sHTML=BuildHtmlTable()
end if
Set conn=nothing
Function BuildHtmlTable()
Dim buildHTML
Dim rs, sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "usp_GetPoll"
rs.Open sql, conn.ConnectionString
if not rs.EOF then
buildHTML = buildHTML & "
| " & CRLF
buildHTML = buildHTML & " | " & CRLF
buildHTML = buildHTML & "
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||