Hata mesajları

[erdalweb]

iyi Akşamlar forum konu içerisinde aradım hata galiba ilk olduğuı için yazıyorum

Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression 'PORTAL_FORUM.FORUM_ID ='.
/inc_functions.asp, line 2065

hataya çözüm bulamadım.

[burajan]

O hatanın 2 satır öncesi ve sonrasını ekleyebilirmisin. O kısımda söz dizimi hatası var. oradaki söz dizimi hatasını düzeltmek gerekir.

[erdalweb]

ilginiz için teşekkürler aşagıdaki kodlar inc_functions.asp 2053 den başlayan ve 2087 ile bitensayılar arasında kalan kodlardır.

'##############################################
'##              Private Forums              ##
'##############################################

sub chkUser4()
   if mLev = 4 then
      exit sub
   end if
   '## FORUM_SQL
   strSql = "SELECT " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_PASSWORD_NEW "
   strSql = strSql & " FROM " & strTablePrefix & "FORUM "
   strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & chkstring(Request.QueryString("FORUM_ID"), "sqlstring")
   set rsStatus = my_conn.Execute (strSql)
   dim Users
   If cint(rsStatus("F_PRIVATEFORUMS")) <> 0 then
         Select case cint(rsStatus("F_PRIVATEFORUMS"))
            case 0
               '## Do Nothing
            case 1, 6 '## Allowed Users
               UserNum = getNewMemberNumber()
               MatchFound = isAllowedMember(Request.QueryString("FORUM_ID"), cint(UserNum))
               if MatchFound then
                  exit sub
               else
                  doNotAllowed
                  Response.end
               end if
            case 2 '## password
               select case Request.Cookies(strUniqueID & "User")("PRIVATE_" & rsStatus("F_SUBJECT"))
                  case rsStatus("F_PASSWORD_NEW")
                     '## OK
                  case else
                     if Request("pass") = "" then
                        doPasswordForm
                        Response.End

[burajan]

Yukarıda yazdığın kodlardaki şu kodu:
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & chkstring(Request.QueryString("FORUM_ID"), "sqlstring")
Aşağıdaki gibi değiştir:
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & Request.QueryString("FORUM_ID")
Not: Bu değişiklik ile sorun düzelir mi yada herhangi başka bir sorun oluşturur mu bilmiyorum. Sadece fikir olarak belirttim.

[erdalweb]

ilginiz için teşekkürler