quote:

---

This is not the best possible structure

---

quote:

---

Originally posted by ruirib

Yeah, guess you can have order and poll_id as the primary key for the POLL_ANSWER table. The poll mod code will have to be redone for this, of course. "Hardest" thing will be the form to create a poll, since the number of answers will now be variable. Probably using a list instead of fixed text fields would be a better option.

---

quote:

---

Originally posted by modifichicci

Don't forget the archive function as well...

---

	'############## Poll Mod ##################
	IsPoll = rsTopic("T_ISPOLL")
	Forum_Polls = rsTopic("F_POLLS")
	Poll_Status = rsTopic("T_POLLSTATUS")
	
	if IsPoll = 1 then
		
		strSql = "SELECT P.P_LASTVOTE, P.P_WHOVOTES"
		' Also removed commas , careful on that
                'For i = 1 To 15
		'	strSql = strSql & ", P.ANSWER" & CStr(i)
		'	strSql = strSql & ", P.COUNT" & CStr(i)
		'Next
		strSql = strSql & " FROM " & strTablePrefix & "POLLS P"
		strSql = strSql & " WHERE P.TOPIC_ID = " & Topic_ID

		set rsPoll = Server.CreateObject("ADODB.Recordset")
		rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
		
		if not(rsPoll.EOF) or not(rsPoll.BOF) then
			Last_Vote = rsPoll("P_LASTVOTE")
			strWhoVotes = rsPoll("P_WHOVOTES")
			rsPoll.Close
			set rsPoll = nothing
			
			strSQL = "SELECT ANSWER_TEXT, ANSWER_COUNT FROM " & strTablePrefix & "POLL_ANSWERS WHERE POLL_ID=" & Topic_ID
			set rsPoll = Server.CreateObject("ADODB.Recordset")
			rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
			if not rsPoll.EOF or rsPoll.BOF Then
				tumPoll = rsPoll.GetRows
				For i=0 to UBound(tumPoll,2)
					z = i+1
					vAnswers(z) = tumPoll(0,i)
					vCount(z) = tumPoll(1,i)
					
				Next
			End If
		
		end if
		
		rsPoll.Close
		set rsPoll = nothing
		end if
		if IsPoll = 1 then
			pollLink = "poll=1&"
			
		else
			pollLink = ""
		end if
	'##########################################

if nNumber <> -1 then
				'## Forum_SQL - 
				strSql = "UPDATE " & strTablePrefix & "POLLS "
				strSql = strSql & " SET  P_LASTVOTE = '" & DateToStr(strForumTimeAdjust) & "'"
				strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID
			
				my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
				
				strSql = "UPDATE " & strTablePrefix & "POLL_ANSWERS "
				strSql = strSql & "  SET ANSWER_COUNT = ANSWER_COUNT+1"
				strSql = strSql & " WHERE POLL_ID = " & Topic_ID & " AND ANSWER_ORDER = " & nNumber
			
				my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
				
				Voted = true
				
				'## Forum_SQL -
				strSql = "SELECT " & strTablePrefix & "POLLS.P_LASTVOTE"
				'For i = 1 To 15
				'	strSql = strSql & ", " & strTablePrefix & "POLLS.ANSWER" & CStr(i) 
				'	strSql = strSql & ", " & strTablePrefix & "POLLS.COUNT" & CStr(i)
				'Next
				strSql = strSql & " FROM " & strTablePrefix & "POLLS"
				strSql = strSql & " WHERE " & strTablePrefix & "POLLS.TOPIC_ID = " & Topic_ID
				
				set rsPoll = Server.CreateObject("ADODB.Recordset")
				rsPoll.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
				
				Last_Vote = rsPoll("P_LASTVOTE")
				rsPoll.Close
				set rsPoll = nothing
				strSQL = "SELECT ANSWER_TEXT, ANSWER_COUNT FROM " & strTablePrefix & "POLL_ANSWERS WHERE POLL_ID=" & Topic_ID
				set rsPoll = Server.CreateObject("ADODB.Recordset")
				rsPoll.Open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
				if not rsPoll.EOF or rsPoll.BOF Then
				tumPoll = rsPoll.GetRows
				For i=0 to UBound(tumPoll,2)
					z = i+1
					vAnswers(z) = tumPoll(0,i)
					vCount(z) = tumPoll(1,i)
					
				Next
			End If
				
				rsPoll.Close
				set rsPoll = nothing
			
				Call UpdateVote("0", MemberID, Topic_ID, Forum_ID, Cat_ID)
			end if