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