Fotoğraf yükleme *YARDIM*

Merhaba, sistem fotoğrafı yüklüyor fakat veri tabanına(access) kayıt etmiyor. Kodlar aşağıdaki gibi, gözünüze çarpan bir hata var mı?

p_photos = replace(getstr("p_photos")," ","")
if p_photos <> "" then
fotolar = split(p_photos,",")
set rs_photos = server.CreateObject(O)
sql_photos = "select * from photos"
rs_photos.open sql_photos, baglanti, 1, 3
for i = 0 to ubound(fotolar)
rs_photos.addnew
rs_photos("p_adi") = fotolar(i)
rs_photos("p_ust") = urun_id
							
	if getstr("foto_ilk") = "" then
		if i = 0 then
	p_ilk = 1
	else
	p_ilk = 0
	end if
	else
	if fotolar(i) = getstr("foto_ilk") then
	p_ilk = 1
	else
	p_ilk = 0
	end if
	end if
	rs_photos("p_ilk") = p_ilk
	rs_photos.update
		next
    rs_photos.close
	     if getstr("foto_ilk") <> "" then
	baglanti.execute("update photos set p_ilk = 0 where p_ust = " & urun_id)
	baglanti.execute("update photos set p_ilk = 1 where p_adi = '" & getstr("foto_ilk") & "' and p_ust = " & urun_id)
		end if

Şimdiden teşekkürler

set rs_photos = server.CreateObject(O)

buradaki O nedir? recordset yaratman lazım.

gper kullanıcı adı ile soruma yanıt vermiş olan arkadaşın yaptığını, insana babası yapmaz. Belki çok iddialı bir cümle oldu fakat, durumu anlatayım siz karar verin.

Bu başlığı açtığımdan kısa bir süre sonra arkadaşım yanıt vermiş. Dediği işlemi uyguladım fakat sonuç değişmedi. Kendisine özel mesaj ile yardıma ihtiyacım olduğunu belirttim. Kendisi de sağolsun (daha önce kullanıcı adını bile görmediğim biri olmasına rağmen) yardımcı olmaya çalışacağını söyledi ve bir teamwiever bilgisi istedi. Kendisi tam olarak kaçta bağlandı bilmiyorum fakat yaptığı işlem saat : 04:21 de bitti.

Bıkmadan, usanmadan sayfalarca kodu inceledi ve sonuç olarak problemi çözdü. Kendisine teşekkürümü birkez de buradan iletmek istedim.

İyi çalışmalar, başarılar.