Author |
Topic |
|
Doughnut
Starting Member
United Kingdom
40 Posts |
Posted - 22 September 2003 : 22:21:40
|
Alright there, When I try to set any private message preferences (version v3.4.01) I get the following error:
Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/forum/pm_options.asp, line 58
Heres line 58 plus one line above and one line below: strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_PASSWORD = '" & Request.Cookies(strUniqueID & "User")("PWord") & "'"
my_Conn.Execute(strSql) <<<line 58. if strSetCookieToForum = 1 then
I know this aint the latest version but it works okay so I don't really wanna change it, any ideas what up chaps?
Thanks, Robin.
|
Edited by - Doughnut on 23 September 2003 04:36:13 |
|
Doughnut
Starting Member
United Kingdom
40 Posts |
Posted - 22 September 2003 : 23:16:39
|
decided to install the new version after all... still get the same error though |
|
|
Davio
Development Team Member
Jamaica
12217 Posts |
|
Doughnut
Starting Member
United Kingdom
40 Posts |
Posted - 23 September 2003 : 07:18:43
|
Thanks Davio,
I did do a search but never found this one
Thanks again. |
Edited by - Doughnut on 23 September 2003 07:26:02 |
|
|
Doughnut
Starting Member
United Kingdom
40 Posts |
Posted - 23 September 2003 : 07:25:18
|
I tried Richards amended code I get a slightly new error on the same line..
Microsoft JET Database Engine error '80040e14'
Syntax error in UPDATE statement.
/forum/pm_options.asp, line 58
Anyone managed to work this one out?
Thanks.
|
Edited by - Doughnut on 23 September 2003 07:26:36 |
|
|
sikandar
Junior Member
Pakistan
135 Posts |
Posted - 16 November 2003 : 04:24:48
|
I am getting the following error message, Error Type: (0x80020009) Exception occurred. /forums/pm_options.asp, line 103
103 if rs("M_PMRECEIVE") = "1" then 104 Response.Write "ON" 105 else 106 Response.Write "OFF" 107 end if
|
|
|
laser
Advanced Member
Australia
3859 Posts |
Posted - 16 November 2003 : 04:31:04
|
I guess change line 103 to :
if rs("M_PMRECEIVE") = 1 then
i.e. remove the quotes |
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 17 November 2003 : 16:23:00
|
Robin, could you put a response.write strSql and a response.end before that myConn.Execute and paste the result here? Then we can check the sql-query and try to see what causes the error. |
Jan =========== FR Portal Forums | Active Users 4.0.20 Mod |
|
|
sikandar
Junior Member
Pakistan
135 Posts |
Posted - 18 November 2003 : 00:16:53
|
Normal users are getting the error while I as an admin not getting it, I have removed the quotes but still same. Here is the copy paste,
'## Forum_SQL strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID " strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME " strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD " strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PMRECEIVE " strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PMEMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.M_NAME = '" & strDBNTUserName & "'" strSql = strSql & " AND " & strMemberTablePrefix & "MEMBERS.M_PASSWORD = '" & Request.Cookies(strUniqueID & "User")("PWord") & "'"
set rs = my_Conn.Execute(strSql)
Response.Write "<center>" & vbNewLine & _ "<table border=""0"" width=""100%"" align=""center"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td width=""33%"" align=""left"" nowrap><font size=""" & strDefaultFontSize & """>" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""default.asp?sectionid=0"">" & fLang(strLangAll_Forums00010) & "</a><br>" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","align=""absmiddle""") & " <a href=""pm_view.asp?sectionid=2"">" & fLang(strLangPm_Message00020) & "</a><br>" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","align=""absmiddle""") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangPm_Message01010) & "<br></font></td>" & vbNewLine & _ " </tr>" & vbNewLine & _ "</table>" & vbNewLine & _ "<br>" & vbNewLine & _ "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""4"">" & vbNewLine & _ "<form action=""pm_options.asp?mode=setoptions"" method=""POST"">" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td class=header><font size=""" & strDefaultFontSize & """>" & fLang(strLangPm_Message01020) & "</font></td>" & vbNewLine & _ " </tr>" & vbNewLine & _ " <tr>" & vbNewLine & _ " <td class=forumcellcolor><font size=""" & strDefaultFontSize & """><b>" & fLangN(strLangPm_Message01030,strForumTitle) if rs("M_PMRECEIVE") = 1 then Response.Write fLang(strLangPm_Message01040) else Response.Write fLang(strLangPm_Message01050) end if Response.Write "</b>.<br>" & fLang(strLangPm_Message01060) & " <b>" if rs("M_PMRECEIVE") = "1" then Response.Write fLang(strLangPm_Message01050) else Response.Write fLang(strLangPm_Message01040) end if Response.Write "</b> " & fLang(strLangPm_Message01070) & "<br>" & vbNewLine & _ " <input type=""radio"" name=""statusstorage"" value=""1""" if rs("M_PMRECEIVE") = "1" then Response.Write(" checked") end if Response.Write "> " & fLang(strLangPm_Message01080) & "<br>" & vbNewLine & _ " <input type=""radio"" name=""statusstorage"" value=""0""" if rs("M_PMRECEIVE") = "0" then Response.Write(" checked") end if
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 18 November 2003 : 10:41:31
|
Sikandar, pasting code like that will not be of much help. Instead, make a copy of the file and save it as text-file, then paste a link to it instead. Did you test laser's suggestions? |
Jan =========== FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
Topic |
|