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