<% Dim thisanswer thisanswer = Request.Form("Answer") Application.Lock Application("votedfor" & ThisAnswer) = Application("votedfor" & thisanswer)+1 Application.Unlock Session("Voted") = "yes" Response.Redirect ("thankvote.asp") %>