hey
i installed the pool mod according to the instructions and went to add a new pol to a forum and i get the following error message
ADODB.Recordset.1 error '80004005'
SQLState: 42000
Native Error Code: 1064
[TCX][MyODBC]You have an error in your SQL syntax near '' at line 1
/forum/post.asp, line 397
the below is lines 375 to 430
TxtMsg = rs("T_MESSAGE")
else
if strRqMethod = "TopicQuote" then
TxtMsg = "quote:
Originally posted by " & chkString(rs("M_NAME"),"display") & "" & vbNewline
TxtMsg = TxtMsg & "
" & rs("T_MESSAGE") & vbNewline
TxtMsg = TxtMsg & "
"
end if
end if
end if
' ############################## Poll Mod ################################
if Request.QueryString("poll") = "1" then
'### Get poll from POLLS table
strSql = "SELECT " & strTablePrefix & "POLLS.P_WHOVOTES, "
for i = 1 to 15
strSql = strSql & strTablePrefix & "POLLS.ANSWER" & CStr(i) & ", "
strSql = strSql & strTablePrefix & "POLLS.COUNT" & CStr(i)
if i <> 15 then
strSql = strSql & ", "
end if
next
strSql = strSql & " FROM " & strTablePrefix & "POLLS"
strSql = strSql & " WHERE " & strTablePrefix & "POLLS.TOPIC_ID = " & strRqTopicID
set rsPoll = my_Conn.Execute (strSql)
if rsPoll.EOF or rsPoll.BOF then
Go_Result "You are trying to edit a Topic that is not a Poll"
else
strWhoVotes = rsPoll("P_WHOVOTES")
nTotal = 0
ReDim txtAns(15)
for i = 1 to 15
txtAns(i) = trim(rsPoll("ANSWER" & CStr(i)))
if txtAns(i) <> "" then
nTotal = nTotal + 1
end if
next
if CInt(strMaxVotes) > nTotal then
nCount = strMaxVotes
else
nCount = nTotal
end if
end if
rsPoll.Close
set rsPoll = nothing
end if
' ############################################################
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
'## Forum_SQL
' DEM --> Added F_SUBSCRIPTION, F_MODERATION to the end of this select
strSql = "SELECT F_SUBJECT, F_URL, F_PRIVATEFORUMS, F_PASSWORD_NEW, " & _
"F_DEFAULTDAYS, F_COUNT_M_POSTS, F_SUBSCRIPTION, F_MODERATION, F_DESCRIPTION " & _
" FROM " & strTablePrefix & "FORUM " & _
" WHERE FORUM_ID = " & strRqForumId