Selam arkadaşlar.

Üyelik sistemi içermeden basitçe ürünleri sepete atma ve sepeti sipariş verme sistemi yazdım. Bu sistemde kullanıcı ürünleri septe atabilir ve sonrasında sepete giderek ürünlerin listesini görebiliyor. Hemen altında da Kişisel bilgilerini girdiği bir form var. Gönder dediği zaman listedeki ürünlerin bilgileri site sahibine teklif formu adıyla geliyor (daha doğrusu gelmesi lazım sorunum burada).

Gönder dediği zaman sepet içindeki ürün listesini ve kişisel bilgilerini html formatında mail atamamız lazım. Mail yollama bölümünde sorunumuz yok. Fakat listeyi oluştururken sepetteki en son ürün geliyor. Döngüye soktuğum halde hep en son ürün geliyor... Bu sorunu nasıl çözebilirim.

Sepette 5 ürün varsa kullanıcı sepetteki ürünler için teklif istediğinde site sahibine ürünlerin listesi ve işlem yapan kullanıcının bilgileri gelmeli. Kodum aşağıda arkadaşlar.

		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"))
					SayfaSepet = "<table border='1' bordercolor='#cccccc' bgcolor='#ffffff' cellpadding='3' cellspacing='1' width='100%'>"
					SayfaSepet = SayfaSepet & "<tr>"
					SayfaSepet = SayfaSepet & "<td style='width:28px; text-align:center'>"& st &"</td>"
					SayfaSepet = SayfaSepet & "<td style='text-align:left;'>"& urun("SAYFAADI") &"</td>"
					SayfaSepet = SayfaSepet & "</tr></table>"
				sepet.movenext:loop
'		end if
 						SayfaSepet = SayfaSepet
						SayfaSepet = SayfaSepet & "<br /><b>İletişim bilgileri</b>"
						SayfaSepet = SayfaSepet & "<table border='1' bordercolor='#cccccc' bgcolor='#ffffff' cellpadding='3' cellspacing='1' width='100%'>"
						SayfaSepet = SayfaSepet & "<tr>"
						SayfaSepet = SayfaSepet & "<td style='width:150px; text-align:left;'>Adınız Soyadınız</td>"
						SayfaSepet = SayfaSepet & "<td style='text-align:left; background-color:#f0f0f0;'>"& ADISOYADI &"</td>"
						SayfaSepet = SayfaSepet & "</tr>"
						SayfaSepet = SayfaSepet & "<tr>"
						SayfaSepet = SayfaSepet & "<td style='width:150px; text-align:left;'>Mail Adresiniz</td>"
						SayfaSepet = SayfaSepet & "<td style='text-align:left; background-color:#f0f0f0;'>"& EMAIL &"</td>"
						SayfaSepet = SayfaSepet & "</tr>"
						SayfaSepet = SayfaSepet & "<tr>"
						SayfaSepet = SayfaSepet & "<td style='width:150px; text-align:left;'>Telefon Numaranız</td>"
						SayfaSepet = SayfaSepet & "<td style='text-align:left; background-color:#f0f0f0;'>"& TEL &"</td>"
						SayfaSepet = SayfaSepet & "</tr>"
						SayfaSepet = SayfaSepet & "</table>"	
				urun.Close
				Set urun= Nothing
		sepet.Close
		Set sepet= Nothing
					 
RESPONSE.Write(SayfaSepet)
RESPONSE.End()		

'Bundan sonrası Mail yollama şeyisi