| 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 |
|
|
|
Topic Locked
