<%If Request.Cookies("Profile")("UserID") = "" then %> <%end if Function GetActivePoll() Dim objPoll Dim objRS Dim intActivePoll Set objPoll = CreateObject("dbAccess.clsExecutes") objPoll.ConnectionString = Application("dbConnection") Set objRS = objPoll.ExecuteProc("sp_GetActivePoll") intActivePoll = objRS.Fields("intPollID").value set objPoll = nothing set objRS = nothing GetActivePoll = intActivePoll end Function %>