" & rs_Responses("PollOption") & "" & pVotes & "%  " & rs_Responses("VoteCount") & "" rs_Responses.MoveNext Else PollOptHTML = PollOptHTML & "  " & rs_Responses("PollOption") & "" rs_Responses.MoveNext End If Wend If Request("isSubmitted") = "yes" Then strSQL = "UPDATE tbl_Responses SET VoteCount = VoteCount + 1 WHERE PollOptionID= " & Request("pollopt") & ";" If Int(Request.Cookies("PollCookie")("PollID")) <> PollID Then Conn.Execute strSQL Response.Cookies("PollCookie").Expires = Now() + 365 Response.Cookies("PollCookie").Domain = "civet.net" Response.Cookies("PollCookie")("PollID") = PollID ErrorMsg = "Thank you for voting!" End If End If */ ?>
"" Then ?> " & ErrorMsg & "
" ?>
  Sorry, there is no poll this week.