<%
function SubmitUserHit (conn, UserHit, poll_id)
	
	dim NewHit
	NewHit = Int(GetCurrentPollHits (conn, UserHit, poll_id))
	
	NewHit = NewHit + 1
	
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open "select * from PollHits where poll_id=" & poll_id, conn, adOpenKeyset, adLockPessimistic
	with objRS
		.Fields(UserHit) = NewHit
		.Update
	end with
	objRS.Close
	 Set objRS = Nothing		
end function

function SubmitVisitorMail (conn, vis_email, vis_poll_id)
	
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open "select * from Visitors", conn, adOpenKeyset, adLockPessimistic
	with objRS
		.AddNew
		.Fields("vis_email") = vis_email
		.Fields("vis_poll_id") = vis_poll_id
		.Fields("vis_date_subscr") = Now()
		.Update
	end with
	objRS.Close
	 Set objRS = Nothing		
end function

function CheckUserCookie(poll_id)
	dim usrCookie
	usrCookie = Request.Cookies("userPoll")
	If usrCookie = "" Then
		Response.Cookies("userPoll") = poll_id
		Response.Cookies("userPoll").Expires = Date + 365
		CheckUserCookie = true
	Else
		usrCookie = Int(Request.Cookies("userPoll"))
		If usrCookie <> poll_id Then
			CheckUserCookie = true
			Response.Cookies("userPoll") = poll_id
			Response.Cookies("userPoll").Expires = Date + 365
		Else
		usrCookie = Int(Request.Cookies("userPoll"))
			If usrCookie = poll_id Then
				CheckUserCookie = false
			End If
		End If
	End If
	
end function

function GetCurrentPollHits (conn, UserHit, poll_id)
	dim strsql
	strsql = "SELECT * FROM PollHits WHERE poll_id=" & poll_id

	dim objRS
	set objRS = server.createobject("ADODB.Recordset")
	objRS.open strsql, conn

	GetCurrentPollHits =objRS("phit_que1")
end function

function UpdatePollQuestions (conn, poll_id, pQuestion1, pQuestion2, pQuestion3, pQuestion4)
			
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open "select * from PollQuestions where poll_id=" & poll_id, conn, adOpenKeyset, adLockPessimistic
	with objRs
		.Fields("pQuestion1") = pQuestion1
		.Fields("pQuestion2") = pQuestion2
		.Fields("pQuestion3") = pQuestion3
		.Fields("pQuestion4") = pQuestion4
		.Update
	end with
	objRS.Close
	Set objRS = Nothing	
end function

Function SubmitNewPoll(conn, poll_title, poll_datecreated)
	Dim poll_id, objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open "select * from Polls where 0=1", conn, adOpenKeyset, adLockPessimistic
	with objRs
		.AddNew
		.Fields("poll_title") = poll_title
		.Fields("poll_datecreated") = poll_datecreated
		.Fields("poll_css") = "cms.css"
		.Update
		SubmitNewPoll = .Fields("poll_id")
	end with
	objRS.Close
	Set objRS = Nothing
end function

Function SubmitPollQuestions(conn, poll_id, pQuestion1, pQuestion2, pQuestion3, pQuestion4)
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open "select * from PollQuestions where 0=1", conn, adOpenKeyset, adLockPessimistic
	with objRs
		.AddNew
		.Fields("poll_id") = poll_id
		.Fields("pQuestion1") = pQuestion1
		.Fields("pQuestion2") = pQuestion2
		.Fields("pQuestion3") = pQuestion3
		.Fields("pQuestion4") = pQuestion4
		.Update
	end with
	objRS.Close
	Set objRS = Nothing
end function	
	


function RemovePoll(conn, poll_id)
	dim strQuery
	strQuery = "DELETE FROM Polls WHERE poll_id=" & poll_id
	conn.Execute strQuery
end function  

function getAllPollsRS(conn)
	Dim SQLselect
	SQLselect = "SELECT * FROM Polls ORDER BY poll_datecreated DESC"
	
	Dim objRS
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.Open SQLselect, conn
	
	set getAllPollsRS = objRS
end function

function getPollByIDRS(conn, poll_id)
	dim strsql
	strsql = "SELECT * FROM Polls WHERE poll_id=" & poll_id

	dim objRS
	set objRS = server.createobject("ADODB.Recordset")
	objRS.open strsql, conn

	set getPollByIDRS = objRS
end function

function getPollDetailsByIDRS(conn, poll_id)
	dim strsql
	strsql = "SELECT * FROM PollQuestions WHERE poll_id=" & poll_id

	dim objRS
	set objRS = server.createobject("ADODB.Recordset")
	objRS.open strsql, conn

	set getPollDetailsByIDRS = objRS
end function

function getCategoryUser(cat_user)
	dim strUser
	Select case cat_user
		case "Adm"
		strUser = "Administrator"
		
		case "Prof"
		strUser = "Professor"
		
		case "Stud"
		strUser = "Student"
		
		case else
		strUser = "Administrator"
	End Select
		
	getCategoryUser = strUser
end function

function getMailSetting(conn)
	dim strsql
	strsql = "SELECT * FROM PollParams WHERE id=1"

	dim objRS
	set objRS = server.createobject("ADODB.Recordset")
	objRS.open strsql, conn

	getMailSetting = objRS("mail_enabled")
end function
%>