<%
set rssepet = Server.CreateObject("ADODB.Recordset")
rssepet.open "select * from sepet where id = '"&session("id")&"'",baglan,1,3
if rssepet.Eof Then
Response.Write " Hiç Bir Ürün Bulunamadi"
End if
Do while not rssepet.eof
Set rsurun = Server.CreateObject("ADODB.RecordSet" )
rsurun.open "Select * from urun where urunid = "&rssepet("urunid")&"" , baglan,1,3
%>

bu şekilde dene sorunsuz çalışacaktır..