<%
Function ToplamFiyat(ByVal uyeid)
Dim Toplama
Toplama = 0

Set Rs = Baglanti.Execute("SELECT Sepet.*,Urunler.* FROM Sepet INNER JOIN Urunler ON Sepet.urunid = Urunler.id WHERE Sepet.uyeid =" & uyeid & "")
Do While Not Rs.Eof
Toplama = Toplama + (Rs("adet") * Rs("fiyat"))
Rs.Movenext
Loop
Rs.Close
Set Rs=Nothing
ToplamFiyat = Toplama
End Function
%>