Gönderen: 18-Mayıs-2010 Saat 09:16 | Kayıtlı IP

Merhaba Arkadaslar,

Kod Bloğu Aşaıdadır.

<%id=request.querystring("id")%>
<%
If request.querystring("i")="ok" Then

FUNCTION TIRNAK(THESTRING)
TIRNAK=REPLACE(THESTRING,"'","''")
END FUNCTION
dim Upload, File, Item, iTimer
iTimer = Timer()
Server.ScriptTimeout = 36000
set Upload = new cls_CBUpload


ack_d1=Trim(Upload.Form("ack_d1"))
ack_d2=Trim(Upload.Form("ack_d2"))
ack_d3=Trim(Upload.Form("ack_d3"))
ack_d4=Trim(Upload.Form("ack_d4"))
icerik_id=id

for each File in Upload.Files
set File = Upload.Files(File)
set rs=baglan.execute("select*from kategoriler WHERE id=" & id &"")
Do while not rs.eof
if rs("image")<>"" then
resim = rs("image")
else
resim = sifreuret(10,1,1)&".jpg"
end if
rs.movenext
loop
if(File.SaveToFile(Server.Mappath("../../upload_images/k/" & resim))) then
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Path = Server.MapPath("../../upload_images/k/" & resim)
Jpeg.Open Path
Jpeg.Width = 100
Jpeg.Height = Jpeg.OriginalHeight * 100 / Jpeg.OriginalWidth

Jpeg.Save Server.MapPath("../../upload_images/k/" & resim)
Path2 = Server.MapPath("../../upload_images/k/" & resim)
Jpeg.Open Path2

if Jpeg.Height>75 then
Jpeg.Height = 75
Jpeg.Width = Jpeg.OriginalWidth * 75 / Jpeg.OriginalHeight

Jpeg.Save Server.MapPath("../../upload_images/k/" & resim)
end if

end if
next
set Upload = nothing
if icerik_id<>"" then

sqlString= " UPDATE kategoriler SET " &_
" image='" & TIRNAK(resim) & "' , "&_
" ack_d1='" & TIRNAK(ack_d1) & "' , "&_
" ack_d2='" & TIRNAK(ack_d2) & "' , "&_
" ack_d3='" & TIRNAK(ack_d3) & "' , "&_
" ack_d4='" & TIRNAK(ack_d4) & "' WHERE " &_
" id=" & icerik_id
baglan.execute sqlString

kayit="tamamqaz"
else
kayit="hataqaz"
end if
end if
%>


Kaydet butonuna basınca asağıdaki hatayı veriyor

0

Microsoft JET Database Engineerror '80040e14'
Syntax error in UPDATE statement. /db/ckd/admin/kategoriler/duzelt3.asp, line 81

------------------

Line 81 ise : baglan.execute sqlString

bu satır.