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.
|