<%@ Language=VBScript %> <% Option Explicit %> <% Response.ExpiresAbsolute = Now() - 1 'All we want to do here is increment the vote count for the voting option 'selected... Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("Poll.mdb") & ";" objConn.Open 'Read in our variables Dim iPollOptionID iPollOptionID = CInt(Request("radPoll")) objConn.Execute "UPDATE PollOption SET Votes = Votes + 1 " & _ "WHERE PollOptionID = " & iPollOptionID objConn.Close Set objConn = Nothing 'We've gotta write a cookie Response.Cookies("Voted") = "Yes" Response.Cookies("Voted").Expires = DateAdd("d",1,Date) 'Send the user back to the previous page Response.Redirect Request("URLFrom") %>