arkadaşlar bu hatanın nerden kaynaklandığını ve nasıl çözeceğimi anlatırlarsa çok sevinirim ...
şimdiden teşekkürler..
kodlar:
<!--#INCLUDE FILE="../haber_includes/admin_connections.asp"-->
<!--#INCLUDE FILE="../haber_includes/admin_pagesettings.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<link rel="stylesheet" href="../haber_includes/style.css" type="text/css">
<%
If Session("AdminSession") = "" Then
Response.Redirect "login.asp"
Else

'##---
If Request("Action") = "DelPicture" Then
UpdateSQL = "update TblNews Set "
UpdateSQL = UpdateSQL & "StrImage=0 WHERE NewsID=" & Request("NewsID")
ObjConn.Execute(UpdateSQL)

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFileObject = ObjFso.GetFile(StrPath & Request("StrImage"))
ObjFileObject.Delete
Set ObjFileObject = Nothing
Set ObjFso = Nothing
Response.Redirect "error.asp?StrMsg=Resim başarıyla silimiş durumdadır&StrRefer=updatenews.asp?NewsID=" & Request("NewsID")
Response.End
End If
'##--
If Request("Action") = "SendData" Then

If Request("StrSubject") = "" Then
Response.Redirect "error.asp?StrMsg=Lütfen haber başlığını yazınız&StrRefer=updatenews.asp?NewsID=" & Request("NewsID")
Response.End
End If
If Request("StrFrontBody") = "" Then
Response.Redirect "error.asp?StrMsg=Lütfen haber ön yazısını yazınız&StrRefer=updatenews.asp?NewsID=" & Request("NewsID")
Response.End
End If
If Request("StrBody") = "" Then
Response.Redirect "error.asp?StrMsg=Lütfen haber metnini yazınız&StrRefer=updatenews.asp?NewsID=" & Request("NewsID")
Response.End
End If
UpdateSQL = "update TblNews Set "
UpdateSQL = UpdateSQL & "CatID=" & Request("CatID") & ", "
UpdateSQL = UpdateSQL & "EditorID=" & Request("EditorID") & ", "
UpdateSQL = UpdateSQL & "StrSubject='" & Replace(Request("StrSubject"),"'","`") & "', "
UpdateSQL = UpdateSQL & "SourceID=" & Request("SourceID") & ", "
UpdateSQL = UpdateSQL & "StrImage='" & Request("StrImage") & "', "
UpdateSQL = UpdateSQL & "StrImageMini='" & Request("StrImageMini") & "', "
UpdateSQL = UpdateSQL & "StrRead='" & Request("StrRead") & "', "
UpdateSQL = UpdateSQL & "StrPoint='" & Request("StrPoint") & "', "
UpdateSQL = UpdateSQL & "StrRow='" & Request("StrRow") & "', "
UpdateSQL = UpdateSQL & "StrFrontBody='" & Replace(Request("StrFrontBody"),"'","`") & "', "
UpdateSQL = UpdateSQL & "StrBody='" & Replace(Request("StrBody"),"'","`") & "' WHERE NewsID=" & Request("NewsID")
ObjConn.Execute(UpdateSQL)
Response.Redirect "error.asp?StrMsg=Haber başarıyla güncellenmiştir.&StrRefer=news.asp?CatID=" & Request("CatID")
Response.End
End If
Set ObjCat = Createobject("ADODB.Recordset")
ObjCat.open "SELECT * FROM TblCategory order by Category asc", ObjConn , 1 , 3
Set ObjEditors = Createobject("ADODB.Recordset")
ObjEditors.open "SELECT * FROM TblEditors order by StrName asc", ObjConn , 1 , 3
Set ObjSources = Createobject("ADODB.Recordset")
ObjSources.open "SELECT * FROM TblSource order by SourceID desc", ObjConn , 1 , 3
Set ObjNews = Createobject("ADODB.Recordset")
ObjNews.open "SELECT * FROM TblNews Where NewsID=" & Request("NewsID") & "", ObjConn , 1 , 3
%>

Hata
Teknik Bilgiler (destek personeli için)
Hata Tipi:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Sürücüsü] İşlem, güncelleştirilebilir sorgu kullanmalıdır.
/ss/haber_admin/updatenews.asp, line 62

Tarayıcı Tipi:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
Sayfa:
POST 1186 bytes to /ss/haber_admin/updatenews.asp
POST Data:
CatID=9&EditorID=2&StrSubject=%60Kanun+delen+tek+o kul+Harbiye&StrFrontBody=Ymam+Hatiplerin+kanunla+b ir+problemi+olmady%3Fyny+belirten+Solmaz%2C+%22Kan unu+delen+tek+okul+Harbiye%60dir%22+dedi.&select=P . . .