Hallettim Kodlar:
<%
ToplamFiyat=0
Set rs=Baglanti.Execute("Select * from Sepet where uyeid="&uyeid&" order by id asc")
Do while not rs.Eof
Set urun=Baglanti.Execute("Select * from Urunler where id like '"&rs("urunid")&"'")
ToplamFiyat=ToplamFiyat + (rs("adet") * urun("fiyat"))
urun.Close
Set urun=Nothing
rs.Movenext
Loop
rs.Close
Set rs=Nothing
%>