Tekil Mesaj gösterimi - ASP ile hazırlanan HTML email içinde döngü oluşturmak (Yardım)

Konu ASP ile hazırlanan HTML email içinde döngü oluşturmak (Yardım)

10-08-2010, 13:59:57

Üyeliği durduruldu

merhaba.

düşünün ki bir sayfada bazı veriler sıralanıyor. bir link ile email.asp ye yönlendiriliyor ve bu sayede kullanıcının kayıtlı olan mail adresine tablo yollanıyor.

bu işlemlerin hepsi aşağıdaki kodun üst kısımlarında yapılıyor HTML oluşturma kısmına gelindiğinde verilerin alt alta sıralanması için döngü oluşturmam gerekiyor. kod aşağıda

strBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & vbCrLf _
		& "<table width=""860"" border=""1"">" & vbcrlf _
		& "<tr>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Başvuru Numarası" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Başvuru Tipi" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Marka adı" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Sınıflar" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Başvuru Tarihi" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Yenileme Tarihi" & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& "Başvuru Ülkesi" & vbcrlf _
		& "</th>" & vbcrlf _
		& "</tr>" & vbcrlf _
		& "</table>" & vbcrlf _
' BURADAN İTİBAREN DÖNGÜ BAŞLAMALI 
		& "<table width=""860"" border=""1"" cellpadding=""0"" cellspacing=""0"">" & vbcrlf _
		& "<tr>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		&  objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		&  objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		&  objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		&  objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
		& "<th scope=""col"">" & vbcrlf _
		& objrs("kod_no") & vbcrlf _
		& "</th>" & vbcrlf _
' DÖNGÜ BURADA BİTMELİ

Kod içindeki 'burada döngü başlamalı ve 'döngü burada bitmeli kısmını objrs nin record count'ı kadar tekrar etmeli. Fakat

<% do while not objrs.eof

ile başlatıp

objrs.movenext 
loop

ile bitirince

Alıntı

Hata Tipi:
Microsoft VBScript derleme hatası (0x800A0401)
Deyim sonu gerekli
/test/email_html.asp, line 87
do while not objrs.eof

hatası alıyorum.

çözüm önerebilecek arkadaşların mesajlarını bekliyorum