Do while not rssepet.eof
Set rsurun = Server.CreateObject("ADODB.RecordSet" )
rsurun.open "Select * from urun where urunid = '"&rssepet("urunid")&"'" , baglan,1,3 (hatayı bu satırda veriyor)

buradaki satırda '"&rssepet("urunid")&"' bu kısım hatalıydı.. ID değerleri ' ' içinde yazılmaz.. o satırdaki hata oydu.. eksik gönderimde ayrı bir hata tabiki.. biz ancak gördüğümüz kod kadarıyla yorum yapabiliriz.. kolay gelsin..