bsp;  End If
End Function

Sub ShowVote

%>

<div align=right>
<table width=125 border=1 cellspacing=0 cellpadding=0><tr><td>
<form method="post" action="/poll/collect.asp">
<input type="hidden" name="id" value="<%=id%>">
<input type="hidden" name="return_page" value="<%=Request.ServerVariables("PATH_INFO")%>">
<%
  Set conn = Server.CreateObject("ADODB.Connection")
  dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
  dsnpath = dsnpath & "DBQ=" & DBPath
  conn.open dsnpath
  sql = "select * from Poll where ID = " & ID
  Set rs = conn.Execute(sql)
  If rs.EOF = False Then
%>

<table width=125 border=0 cellspacing=0 cellpadding=2 bgcolor=#4f4f4f>
<tr>
  <td colspan=3  bgcolor=#2f2f4f align=center>
    <%=rs("PollQuestion")%>
   </td>
</tr>
    <%
      For I=1 To 5
          choice = rs("Choice" & I)
          If choice <> "" Then
    %>
         <tr>
         <td colspan=2 bgcolor=#000000 valign=top width=80%>
         <%=choice%> </td><td valign=top colspan=1 width=20% bgcolor=#000000> <input type="radio" name="choice" value="<%=I%>">
         </td></tr>
    <%
          End If
      Next
    %>

<tr>
  <td colspan=3 align=center bgcolor=#2f2f4f align=right>
    <input type="submit" value="Submit" class=nav>
  </td></tr>
</table>
<%
     End If
%>

</td></tr></form></table>

</center>

<%

End Sub


Sub ShowDisplay

   Set conn = Server.CreateObject("ADODB.Connection")
   sql = "select * from Poll where ID = " & Cint(ID)
   dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
   dsnpath = dsnpath & "DBQ=" & DBPath
   conn.open dsnpath
   Set rs = Conn.Execute(sql)
   If rs.EOF = False Then
      Dim Choices(6)
      Dim Responses(6)
      For I=1 To 5
          choice = rs("Choice" & I)
          Choices(I) = choice
          If choice <> "" Then
              Set conn2 = Server.CreateObject("ADODB.Connection")
              sql = "select COUNT(PollAnswer) from PollResults where PollID = " & Cint(id) & " AND PollAnswer=" & I
            dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
              dsnpath = dsnpath & "DBQ=" & DBPath
              conn2.open dsnpath
              Set rs2 = Conn.Execute(sql)
              If rs2.EOF = False Then
                 Responses(I) = rs2(0)
              End If
              rs2.Close
              conn2.Close
          End If
      Next
%>
  <div align="right">
<table border=1 cellspacing=0  cellpadding=2><tr><td>
  <table width=125 border=0 cellspacing=0><tr>
  <td colspan=2  bgcolor=#2f2f4f align=center class=orgbold>ASP Poll
  </td></tr>
  <tr><td colspan=2  align=center bgcolor=#ccccff class=black>
Q:<%=rs("PollQuestion")%>
  </td></tr>

<%
      Total = 0
      For I=1 To 5
          responseCount = Responses(I)
          If responseCount <> "" Then
                 Total = Total + Cint(responseCount)
          End If
      Next
      For I=1 To 5
          choice = Choices(I)
          responseCount = Responses(I)
          If choice <> "" Then
                 Response.Write "<tr><td colspan=1 align=left><font face='verdana' size=-1 color=#f0f0f0>"
                 Response.Write choice
                 Response.Write "</td>"
                 Response.Write "<td>" & ConvertToPercent(total, responseCount) & "</td>"
                 Response.Write "</tr>"
          End If
      Next
      Response.Write "</table></td></tr></table></div>"
  End If
End Sub
%>
</div>

上一页  [1] [2]