discusmania
IS-IT--Management
Hi guys,
i got this error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'table plant_listing where id in('1')'.
/dept/amt/software/fms/myown/update.asp, line 54
and the code is
elseif flag="Delete" then
' delete the attached file
' the attached file name
'aFiles=split(request("chkedit"),",")
'for i=0 to ubound(aFiles)
'idstr = replace(aFiles(i),"'","")
'strget="select pict from plant_listing where id='"&idstr&"'"
'response.Write strget
'set rspict=cn.execute(strget)
'if not rspict.eof then
'picture=rspict("pict")
'set fso=CreateObject("Scripting.FileSystemObject")
'PathLen=len(Server.mappath(request.servervariables("PATH_INFO")))
'PathEnd=PathLen-10
'FilePath=left(Server.mappath(request.servervariables("PATH_INFO")),pathend)
'file_name=Filepath & "images\myherba" & "\" & picture
'if fso.FileExists(file_name) then
'fso.DeleteFile(file_name)
'end if
'set fso=nothing
'end if
'next
row_to_edit=replace(request("chkedit")," ","")
strdelete="delete plant_listing where id in('"&replace(row_to_edit,",","','")&"')"
response.Write strdelete
cn.execute strdelete
response.Redirect "myherba.asp"
end if
what's wrong with that??
many thanks,
Ron
i got this error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'table plant_listing where id in('1')'.
/dept/amt/software/fms/myown/update.asp, line 54
and the code is
elseif flag="Delete" then
' delete the attached file
' the attached file name
'aFiles=split(request("chkedit"),",")
'for i=0 to ubound(aFiles)
'idstr = replace(aFiles(i),"'","")
'strget="select pict from plant_listing where id='"&idstr&"'"
'response.Write strget
'set rspict=cn.execute(strget)
'if not rspict.eof then
'picture=rspict("pict")
'set fso=CreateObject("Scripting.FileSystemObject")
'PathLen=len(Server.mappath(request.servervariables("PATH_INFO")))
'PathEnd=PathLen-10
'FilePath=left(Server.mappath(request.servervariables("PATH_INFO")),pathend)
'file_name=Filepath & "images\myherba" & "\" & picture
'if fso.FileExists(file_name) then
'fso.DeleteFile(file_name)
'end if
'set fso=nothing
'end if
'next
row_to_edit=replace(request("chkedit")," ","")
strdelete="delete plant_listing where id in('"&replace(row_to_edit,",","','")&"')"
response.Write strdelete
cn.execute strdelete
response.Redirect "myherba.asp"
end if
what's wrong with that??
many thanks,
Ron