Author |
Topic |
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 26 September 2003 : 09:20:27
|
I'm still looking for help on this issue if anyone can help with it.
However when posting a new topic or a new poll, I get this error.
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/korloch/testforum/post_info.asp, line 966
And when posting a new calendar event I get this error
Microsoft JET Database Engine error '80040e57'
Overflow
/korloch/testforum/post_info.asp, line 966
the text version of the file is at the following location.
http://www22.brinkster.com/korloch/testforum/post_info.txt
|
Believe disbelief and contemplate the simple. |
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 30 September 2003 : 13:24:45
|
the line that is in question is:
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
if it helps any....
|
Believe disbelief and contemplate the simple. |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 30 September 2003 : 13:35:19
|
re-check the parts of post_info that you edited, you have probaly missed a field out of one of the queries |
|
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 01 October 2003 : 10:11:10
|
Well... I've tried checking, and so far only three mods that I've installed make changes to the post_info.asp file. The Calendar mod, Opinion Polls mod, and the Post Stamp mod, other than that, my other installed mods, Extended Color Code, Who Has Posted, Front Page News, Private Message, Avatar, and Active Users; don't make any changes....
What follows is a list of the code changes made from each mod, as well as a link to a text copy of the file. |
Believe disbelief and contemplate the simple. |
|
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 01 October 2003 : 10:12:28
|
file location: http://www22.brinkster.com/korloch/testforum/post_info.txt
file changes
Lines 49-52 (Cal Mod) if Request.Form("isevent")="1" then if mlev < intAllowedtoPostEvent then Go_Result strCalNotAllowed, 0 if not isdate(Request.Form("event_Date")) then Go_Result strCalInvalidDate, 0 end if
Lines 61-64 (Poll Mod) 'Topic Move Check Dim blnTopicMoved Dim fSubscription Dim txtAns()
Lines 462-478 (Poll & Cal Mod) if Request.Form("poll") = "1" then count = Request.Form("count") ReDim txtAns(CInt(count)) For i = 1 To CInt(count) if trim(Request.Form("answer" & CStr(i))) <> "" then txtAns(i) = chkString(Request.Form("answer" & CStr(i)),"SQLString") else txtAns(i) = "" end if Next end if if Request.form("isevent")="1" then dateHolder = DatetoStr(CDate(Request.Form("event_date"))) else dateHolder="" end if
Lines 493-503 (Poll Mod) if Request.Form("poll") = "1" then count = Request.Form("count") For i = 1 to CInt(count) if trim(Request.Form("answer" & CStr(i))) <> "" then intCount = intCount + 1 end if Next if intCount < 2 then Err_Msg = Err_Msg & "<li>You Must Enter at least two Answers for the Poll</li>" end if end if
Lines 514-524 (Poll Mod) strSql = "SELECT " & strTablePrefix & "FORUM.F_POLLS " strSql = strsql & " FROM " & strTablePrefix & "FORUM " strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & aryForum(1) set rsPollCheck = my_Conn.Execute(strSql) ForumPolls = rsPollCheck("F_POLLS") rsPollCheck.close set rsPollCheck = nothing
Line 567 (Cal Mod) strSql = strSql & ", T_EVENT_DATE = '" & dateHolder & "'"
Lines 575-579 (Poll Mod) if Request.Form("lockpoll") = "1" or ForumPolls = "0" then strSql = strSql & ", T_POLLSTATUS = 0" else strSql = strSql & ", T_POLLSTATUS = 1" end if
Lines 600-624 (Poll Mod) if Request.Form("poll") = "1" then '### Update poll answers and counts strSql = "UPDATE " & strTablePrefix & "POLLS " strSql = strSql & " SET P_WHOVOTES = '" & chkString(Request.Form("WhoVotes"),"SQLString") & "', " strSql = strSql & " CAT_ID = " & cLng(aryForum(0)) & ", " strSql = strSql & " FORUM_ID = " & cLng(aryForum(1)) & ", " for i = 1 to CInt(Request.Form("count")) strSql = strSql & "ANSWER" & CStr(i) & " = '" & txtAns(i) & "'" if txtAns(i) = "" or chkString(Request.Form("resetpoll"),"SQLString") = "1" then strSql = strSql & ", COUNT" & CStr(i) & " = " & 0 end if if ubound(txtAns) <> i then strSql = strSql & ", " end if next strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords if Request.Form("resetpoll") = "1" then '### Delete poll votes from POLL_VOTES table for this topic strSql = "DELETE FROM " & strTablePrefix & "POLL_VOTES " strSql = strSql & "WHERE " & strTablePrefix & "POLL_VOTES.TOPIC_ID = " & Topic_ID my_Conn.Execute(strSql),,adCmdText + adExecuteNoRecords end if end if
Line 803 (Post Stamp Mod) strSql = "SELECT MEMBER_ID, M_LEVEL, M_EMAIL, M_LASTPOSTDATE, M_POSTS, " & strDBNTSQLName
Lines 837-851 (Poll Mod & Cal Mod) if Request.Form("poll") = "1" then ReDim txtAns(strMaxVotes) for i = 1 to strMaxVotes if trim(Request.Form("answer" & CStr(i))) <> "" then txtAns(i) = chkString(Request.Form("answer" & CStr(i)),"SQLString") else txtAns(i) = "" end if next end if if Request.form("isevent")="1" then dateHolder = DatetoStr(CDate(Request.Form("event_date"))) else dateHolder="" end if
Lines 868-877 (Poll Mod) if Request.Form("poll") = "1" then For i = 1 to strMaxVotes if trim(Request.Form("answer" & CStr(i))) <> "" then intCount = intCount + 1 end if Next if intCount < 2 then Go_Result "You Must Enter at least two Answers for the Poll", 0 end if end if
Lines 889-890 (Poll Mod) strSql = strSql & ", T_ISPOLL" strSql = strSql & ", T_POLLSTATUS"
Lines 905-906 (Cal Mod) strSql = strSql & ", T_ISEVENT" strSql = strSql & ", T_POSTS"
Lines 907 (Post Stamp Mod) strSql = strSql & ", T_POSTS"
Lines 913-922 (Poll Mod) if Request.Form("poll") = "1" then strSql = strSql & ", " & 1 else strSql = strSql & ", " & 0 end if if Request.Form("lockpoll") = "1" then strSql = strSql & ", " & 0 else strSql = strSql & ", " & 1 end if
Line 954 (Post Stamp Mod) strSql = strSql & ", " & (rs("M_POSTS") + 1)
Lines 959-963 (Cal Mod) if Request.Form("isevent")="1" then strSql = strSql & ", " & 1 else strSql = strSql & ", " & 0 end if
Lines 968-1001 (Poll Mod) if Request.Form("poll") = "1" then strSql = "SELECT " & strTablePrefix & "TOPICS.TOPIC_ID " strSql = strSql & "FROM " & strTablePrefix & "TOPICS " strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_ISPOLL = " & 1 & " " strSql = strSql & "ORDER BY " & strTablePrefix & "TOPICS.T_DATE DESC" set rsPollID = my_Conn.Execute (strSql) PollID = rsPollID("TOPIC_ID") rsPollID.close set rsPollID = nothing '## Forum_SQL - Add new poll to Polls Table strSql = "INSERT INTO " & strTablePrefix & "POLLS (CAT_ID" strSql = strSql & ", FORUM_ID" strSql = strSql & ", TOPIC_ID" strSql = strSql & ", P_WHOVOTES" for i = 1 to ubound(txtAns) strSql = strSql & ", ANSWER" & CStr(i) strSql = strSql & ", COUNT" & CStr(i) next strSql = strSql & ") VALUES (" strSql = strSql & Cat_ID strSql = strSql & ", " & Forum_ID strSql = strSql & ", " & PollID strSql = strSql & ", '" & chkString(Request.Form("WhoVotes"),"SQLString") & "'" for i = 1 to ubound(txtAns) strSql = strSql & ", '" & txtAns(i) & "'" strSql = strSql & ", " & 0 next strSql = strSql & ")"
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords end if
Line 1053 (Post Stamp Mod) strSql = "SELECT MEMBER_ID, M_LEVEL, M_EMAIL, M_LASTPOSTDATE, M_POSTS, " & strDBNTSQLname
Line 1113 (Post Stamp Mod) strSql = strSql & ", R_POSTS"
Line 1137 (Post Stamp Mod) strSql = strSql & ", " & (rs("M_POSTS") + 1)
Line 1262 (Poll Mod) strSql = strSql & ", F_POLLS "
Lines 1295-1299 (Poll Mod) if Request.Form("PollAuth") <> "" then strSql = strSql & ", " & chkString(Request.Form("PollAuth"),"SQLString") else strSql = strSql & ", 0 " end if
Lines 1494-1496 (Poll Mod) if Request.Form("PollAuth") <> "" then strSql = strSql & ", F_POLLS = " & chkString(Request.Form("PollAuth"),"SQLString") & "" end if |
Believe disbelief and contemplate the simple. |
|
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 06 October 2003 : 11:38:14
|
Can ANYONE please help me with this?!?!?! |
Believe disbelief and contemplate the simple. |
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
|
Nikkol
Forum Moderator
USA
6907 Posts |
Posted - 06 October 2003 : 12:50:02
|
Without looking at the changes the instructions told you to make, it looks like you have inserted some stuff out of order. Namely, the orange lines below:
'## Forum_SQL - Add new post to Topics Table
strSql = "INSERT INTO " & strTablePrefix & "TOPICS (FORUM_ID"
strSql = strSql & ", CAT_ID"
strSql = strSql & ", T_SUBJECT"
strSql = strSql & ", T_MESSAGE"
strSql = strSql & ", T_ISPOLL"
strSql = strSql & ", T_POLLSTATUS"
strSql = strSql & ", T_AUTHOR"
strSql = strSql & ", T_LAST_POST"
strSql = strSql & ", T_LAST_POST_AUTHOR"
strSql = strSql & ", T_LAST_POST_REPLY_ID"
strSql = strSql & ", T_DATE"
strSql = strSql & ", T_STATUS"
if strIPLogging <> "0" then
strSql = strSql & ", T_IP"
end if
strSql = strSql & ", T_STICKY"
strSql = strSql & ", T_SIG"
strSql = strSql & ", T_ARCHIVE_FLAG"
strSql = strSql & ", T_REPLIES"
strSql = strSql & ", T_UREPLIES"
strSql = strSql & ", T_EVENT_DATE"
strSql = strSql & ", T_ISEVENT"
strSql = strSql & ", T_POSTS"
strSql = strSql & ") VALUES ("
strSql = strSql & Forum_ID
strSql = strSql & ", " & Cat_ID
strSql = strSql & ", '" & txtSubject & "'"
strSql = strSql & ", '" & txtMessage & "'"
if Request.Form("poll") = "1" then
strSql = strSql & ", " & 1
else
strSql = strSql & ", " & 0
end if
if Request.Form("lockpoll") = "1" then
strSql = strSql & ", " & 0
else
strSql = strSql & ", " & 1
end if
strSql = strSql & ", " & rs("MEMBER_ID")
strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
strSql = strSql & ", " & rs("MEMBER_ID")
strSql = strSql & ", 0 "
strSql = strSql & ", '" & DateToStr(strForumTimeAdjust) & "'"
if Request.Form("lock") = 1 and ForumChkSkipAllowed = 1 then
strSql = strSql & ", 0 "
else
if Moderation = "Yes" then
strSql = strSql & ", 2 "
else
strSql = strSql & ", 1 "
end if
end if
if strIPLogging <> "0" then
strSql = strSql & ", '" & Request.ServerVariables("REMOTE_ADDR") & "'"
end if
if ForumChkSkipAllowed = 1 then
if Request.Form("sticky") = 1 then
strSql = strSql & ", 1 "
else
strSql = strSql & ", 0 "
end if
else
strSql = strSql & ", 0 "
end if
if Request.Form("sig") = "yes" and strDSignatures = "1" then
strSql = strSql & ", 1 "
else
strSql = strSql & ", 0 "
end if
strSql = strSql & ", " & (rs("M_POSTS") + 1)
strSql = strSql & ", 1 "
strSQL = strSQL & ", 0 "
strSQL = strSQL & ", 0 "
strSql = strSql & ", '" & dateHolder & "'"
if Request.Form("isevent")="1" then
strSql = strSql & ", " & 1
else
strSql = strSql & ", " & 0
end if
strSql = strSql & ")"
|
Nikkol ~ Help Us Help You | ReadMe | 3.4.03 fixes | security fixes ~ |
|
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 06 October 2003 : 13:13:08
|
okay.... any idea what order those particular lines should be in?
|
Believe disbelief and contemplate the simple. |
|
|
Nikkol
Forum Moderator
USA
6907 Posts |
Posted - 06 October 2003 : 15:11:25
|
you should move one of the orange lines to that it matches up with the position of the other orange line. it shouldn't matter where it goes exactly. |
Nikkol ~ Help Us Help You | ReadMe | 3.4.03 fixes | security fixes ~ |
|
|
Rrok007
Junior Member
USA
149 Posts |
Posted - 06 October 2003 : 19:09:17
|
Thanks! that seems to have solved the issue! |
Believe disbelief and contemplate the simple. |
|
|
|
Topic |
|
|
|