[divemaster]

yardımlarınız için teşekkür ederim arkadaşlar, ancak ASP ye yeni yeni başladığım için bu tür konularda sorunu direkt göremiyorum.

Yeni kayıt eklemeyi denemedim ancak mevcut kayda ekleme ( güncelleme ) esnasında: "ADODB.Field (0x80020009)
Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor." hatası alıyorum acaba nerede yanlışlık yapıyor olabilriim?

<form action="haberedit.ASP" method="post" ENCTYPE="multipart/form-data">


<%
id=request("id")
if request("update")<>"" then


enalt_sayi = 100000
enust_sayi = 999999

Randomize()

isle     = enust_sayi - enalt_sayi + 1
random   = isle * rnd()
random   = random + enalt_sayi
guvenlik = int(random)

Set Upload = server.CreateObject("Persits.Upload")
Upload.Save server.MapPath("\images\urun\")'Resminizin kaydolduğu klasör
 
' Create instance of AspJpeg
Set Jpeg = server.CreateObject("Persits.Jpeg")
' Open source image
For Each File in Upload.Files
dosya = file.path
Jpeg.Open  dosya


set fso = CreateObject("Scripting.FileSystemObject") 
set file = fso.GetFile(File.Path) 
file.name = "rs"&guvenlik&".jpg" 
set file = nothing 
set fso = nothing 
next


L = 120
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth

If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
   jpeg.Height = jpeg.OriginalHeight * L / jpeg.OriginalWidth
Else
   jpeg.Height = L
   jpeg.Width = jpeg.OriginalWidth * L / jpeg.OriginalHeight
End If


jpeg.PreserveAspectRatio = True
If jpeg.OriginalWidth > jpeg.OriginalHeight Then
   jpeg.Width = L
Else
   jpeg.Height = L
End If
 


For Each File in Upload.Files
Jpeg.Save server.MapPath("\images\urun\th"&guvenlik&".jpg")
th = server.MapPath("\images\urun\th"&guvenlik&".jpg")
rs = file.Path
next
uzun = right(th,24)
res = right(rs,24)
response.Write uzun
mes = replace(uzun,"th","rs")



	baslik=request("baslik")
	detay=request("detay")
	resim=request("resim")
	thumb=request("thumb")
	tarih=request("tarih")
	aktif=request("aktif")
	
	
	Rs.ActiveConnection = bag
	Sorgu="Select * From haber where id = "& CInt(id) &""
	rs.open Sorgu,bag,3,2
		rs.update "baslik",baslik
		rs.update "detay",detay
		rs.update "resim",resim
		rs.update "thumb",thumb
		rs.update "tarih",tarih

		if aktif="false" then
			rs.update "aktif",false	
		elseif aktif="true" then
			rs.update "aktif",true
		end if
			
		rs.close
	set rs=Nothing
	Response.Redirect ("haber.ASP")
else

end if 
%>


<%
	Rs.ActiveConnection = bag
	Rs.Open= "Select * From haber where id = "& CInt(id) &""
%>	





 
'  *************** formda güncellenecek veri girişlerinin bulunduğu alan  ***************

<input type="file" name="file" />


 <input type="hidden" name="update" value="1">
<input type="hidden" name="id" value="<%Response.Write RS("id")%>">
<input name="file" type="hidden" value="<%=id%>">

<%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>


<INPUT TYPE="submit" VALUE=" Güncelle " />

</form>