Sepet sistemi yazıyorum. DB ye kayıt yaparak. Kullanıcı sepete ürünleri ekliyor daha sonra sepete git diyerek toplam ürün listesini görüyor. Listenin altında adı soyad vs doldurup sipariş ver diyerek sipariş geçiyor. Buraya kadar sorun yok.

sipariş ver dediğinde arka planda aldığı ürünleri listeleyip mail göndermem gerekiyor. Ne yaptıysam döngü olmasına rağmen ekrana sadece en sonuncu ürün geliyor. Bir yerde hata yapıyorum ama çözemedim. Kodlarım aşağıda. MAILBody i yazdırdığım yerde sepetteki ürünlerin hepsinin alt alta yazması lazım. Çünkü bir sonraki kod Persist Mail postalama kodu.

		set sepet = server.createobject("adodb.recordset")
		sqlSPT="SELECT * FROM [SEPET] where [USERID] = "& USERID &" order by [ID]"
		sepet.open sqlSPT,bag,1,3
 						
		if sepet.eof then
			msj = "Sepetinizde ürün yok."
			Response.Redirect("index.asp?islem=sepet&msg="&msj)
		else
						 do while not sepet.eof
						 st = st + 1
								set urun = bag.execute("SELECT * FROM [SAYFALAR] where [ID] = "& sepet("URUNID"))
								MAILBody = "<table border='1' bordercolor='#cccccc' bgcolor='#ffffff' cellpadding='3' cellspacing='1' width='100%'>"
								MAILBody = MAILBody & "<tr>"
								MAILBody = MAILBody & "<td style='width:28px; text-align:center'>"& st &"</td>"
								MAILBody = MAILBody & "<td style='text-align:left;'>"& urun("SAYFAADI") &"</td>"
								MAILBody = MAILBody & "</tr></table>"
								MAILBody = MAILBody
						sepet.movenext:loop
 		end if

		sepet.Close
		Set sepet= Nothing
					 
					 
					 
 response.Write(MAILBody)
 response.End()