Sepetteki ürünlerin listesini mail yollama

06-08-2014, 23:36:59

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

08-08-2014, 13:29:38

#2

Misafir

Detaylı bakmadım ancak bu kodlarda hata yok gibi. Veritabanı tablonuzu kontrol ettiniz mi? Kullanıcıya ait ürünleri sorunsuz ekliyor değil mi?

11-08-2014, 15:27:38

#3

jarmenso

berdos adlı üyeden alıntı: mesajı görüntüle

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

Sorunu tam anlayamadım. Gönderilen maildemi tek ürün gidiyor. yoksa kendi sitende urunleri listelerkenmi tek ürün görüntüleniyor.

20-08-2014, 23:42:09

#4

berdos

Misafir adlı üyeden alıntı: mesajı görüntüle

Detaylı bakmadım ancak bu kodlarda hata yok gibi. Veritabanı tablonuzu kontrol ettiniz mi? Kullanıcıya ait ürünleri sorunsuz ekliyor değil mi?

Kodlamada sorun yok. O üyeye ait sepete atılan tüm ürünler eksiksiz veri tabanına kaydedilmiş. Tek sorun bu veritabanındkai ürünleri mail atarken döngüye sokuyorum ama en son sıradaki ürünü mail atıyor.

jarmenso adlı üyeden alıntı: mesajı görüntüle

Sorunu tam anlayamadım. Gönderilen mailde mi tek ürün gidiyor. yoksa kendi sitende urunleri listelerkenmi tek ürün görüntüleniyor.

Her ikisi de giden mailde de en son ürün gidiyor. Kodların arasına bi response.write ile kontrol ettiğimde de son ürünü yazıyor. Listeyi ekrana yazıdrmadığım gibi mail de gitmiyor haliyle.

Sepetteki ürünleri bi ekrana dökebil sem alt alta zaten mail göndertirim

26-08-2014, 10:52:17

#5

berdos

Sorunu çözdüm arkadaşlar. Döngü yerini değiştirince sorunum çözüldü. Kodları paylaşıyorum başkasına lazım olur belki.

<% 
			set sepet=bag.execute("SELECT * FROM [SEPET] where [USERID] = "& USERID &" order by [ID]")
 						
 						SayfaSepet = "<table border='1' bordercolor='#cccccc' bgcolor='#ffffff' cellpadding='3' cellspacing='1' width='100%'>"
			
			do while not sepet.eof
			st = st + 1
			
						set urun = bag.execute("SELECT * FROM [SAYFALAR] where [ID] = "& sepet("URUNID"))
						SayfaSepet = SayfaSepet & "<tr>"
						SayfaSepet = SayfaSepet & "<td style='width:28px; text-align:center'>"& st &"</td>"
						SayfaSepet = SayfaSepet & "<td style='text-align:left;'>"& urun("SAYFAADI") &"</td>"
						
 			sepet.movenext:loop:sepet.Close:Set sepet= Nothing
			
						SayfaSepet = SayfaSepet & "</tr></table>"
 						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	 

'---------------PERSITS MAIL-----------------------------
					Set MAIL = Server.CreateObject("Persits.MailSender")
					MAIL.Host = "mail.xxxxxxx.com.tr"
					MAIL.From = "xxx@xxxxxxx.com.tr" 'bizden aldığınız e-mail olmalı
					MAIL.Username = "xxx@xxxxxxx.com.tr" ' gönderen e-mail ile aynı olmalı
					MAIL.Password = "xxxxxx" ' e-mailinizin şifresini giriniz
					MAIL.FromName = ADISOYADI ' e-mailin gönderen adı, istediğinizi yazabilirsiniz.
					MAIL.AddAddress "xxx@xxxxxxx.com.tr" ' mail göndermek istediğiniz e-mail adresi
					MAIL.Charset = "ISO-8859-9"
					MAIL.Subject = KONU
					MAIL.AddReplyTo EMAIL
					MAIL.IsHTML = True
					MAIL.Body = SayfaSepet
					MAIL.Send 
					set MAIL = nothing
					
 				set rs=bag.execute("delete FROM [SEPET] where USERID=" & USERID) 
				msj = "İşlem tamamlanmıştır. En kısa sürede size bilgi verilecektir."
				Response.Redirect("index.asp?islem=sepet&msg="&msj)
 %>