[divemaster]

Merhaba arkadaşlar

Neredeyse 3 gündür sadece bu işlem üzerinde tıkandım kaldım, çözüm aramadığım yer kalmadı. ASPUpload ve ASPJpeg bileşenlerini kullanan bir kod ile sitedeki mevcut kayıtlarıma ( örneğin haberler içine ) birden fazla resim ekletmek ve bunu sildirmek istiyorum ancak bir türlü beceremedim. Her seferinde var olan kayda değil de kendi yeni kayıt açarak ekleme yapıyor.

Mevcut kaydın göstserildiği sayfayadan resimform.ASP upload sayfama link verdim ki ID yi çeksin (resimform.ASP?id=<%=rs("id")%>). resim_yukle.ASP ve resimform.ASP sayfalarına <% id=request("id") %> ekledim ancak bir türlü mevut kayda değil de yeni kayıt açarak ekleme yapıyor.

Bir de bu yüklemeyi birden fazla resimle aynı id ye eklenecek şekilde nasıl yapabiliriz?

resimform.ASP

<%
id=request("id")
%>

<form id="form1" name="form1" method="post" action="resim_yukle.ASP" ENCTYPE="multipart/form-data" >
<input type="file" name="file" />
<input name="Submit" type="submit" />
<input name="file" type="hidden" value="<%=id%>">
</form>

resim_yukle.ASP

<%
id=request("id")
%>

<%

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")

set bag = server.CreateObject ("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & server.MapPath("db/db#.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From haber",bag,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd.addnew
kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%>

[arsende]

Selam

Resim Yükle ASP' nin içinde yer alan kodlarda;


A: kd.open "Select * From haber",bag,1,3

B: kd.addnew

A: Haber tablosunu gösteriyorsun B: Yeni kayıt ekle komutu veriyorsun.

Düzenlemen şöyle;

A: kd.addnew kalkıyor, siliyorsun

B: Sorguyu düzenliyorsun kd.open "Select * From haber where Id = "& Cint(id) &"",bag,1,3

Not: where Id Burdaki Id veritbanında otomatik sayı olan alan adıdır. Burdaki ad eğer Id' ise sorun yok başka bir şey ise onu yazın.

Haber eklerken resim_yukle.ASP' yi kullanıyorsun ama güncellerken aynı dosya değil de resim_guncelle.ASP yaparsınız.

<%
id=request("id")
%>

<%

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")

set bag = server.CreateObject ("ADODB.Connection")
bag.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & server.MapPath("db/db#.mdb") 'buraya kendi database'inizi yazın
set kd = server.CreateObject("ADODB.Recordset")
kd.open "Select * From haber where Id = "& CInt(Id) &"",bag,1,3'buraya resmi 
'kaydedeceğiniz tabloyu yazın
kd("resim") = mes 'urun tablosundaki resim alan'ına normal 
' resmi kaydeder
kd("thumb") = uzun 'urun tablosundaki thumb alanına resmin 
' thumb halini kaydeder
kd.update
%>

En sonda her zaman kd.close olarak recordset'i kapatalım.

[burakozgur]

Upload formuna baska degişken koyacaksanızda request.form ile değil upload.form ile alıyorsunuz. Buda benden kucuk bir hatırlatma.

[arsende]

burakozgur tarafından gönderilen mesaj:

Upload formuna baska degişken koyacaksanızda request.form ile değil upload.form ile alıyorsunuz. Buda benden kucuk bir hatırlatma.

Bende ekleyim!
Upload nesnesini cağırmadan önce gereksiz ve hatalı olur ama, yukarda sayfanın en üstünde kullanılmış "id=request("id")" (Aslında kodlar hatalı yazılmış başa dönmek zor iş )

ID=request.form("ID")
Set Upload = server.CreateObject("Persits.Upload")
ID=upload.form("ID")

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

[burakozgur]

divemaster tarafından gönderilen mesaj:

Ekleme ya da 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?

Kaçıncı satırda hata alıyorsun?

[divemaster]

satır olarak belirtmiyor, bir kaç kere satır olarak belirtti o bölümleri düzenledim en son burada tıkandı kaldı

Hata Tipi:
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.
haberedit.ASP

[burakozgur]

ID'yi nasıl aldıgını yazar mısın request demişsin ama bunu URL den mi alıyorsun formdan mı? Tetikleyen formuda yapıstırır mısın buraya

[burakozgur]

<form action="haberedit.ASP" method="post" ENCTYPE="multipart/form-data"> bu sekilde birşey yazmıssın yeni gordum. id=request("id") yi id=upload.form("id") olarak değiştirip dener misin? Büyük olasılık sorunun bu.

[divemaster]

ID yi "haberedit.ASP?id=<%=rs("id")%>" diyerek url den alıyorum. Daha sonraki tüm işlem zaten haberedit.ASP içerisinden yapılıyor.

id=upload.form("id") yaptım ancak herhangi bir değişiklik olmadı, aynı hata devam ediyor maalesef.