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

11-08-2010, 14:17:10

#10

Kimlik doğrulama veya yönetimden onay bekliyor.

bunun yerine
for i = 1 to objrs.recordcount
if not objrs.eof then

bunu ekle
while not objrs.eof

ve bunun yerine
end if
objrs.movenext()
next

bunu
objrs.movenext()
wend

11-08-2010, 14:35:10

#11

~~teknolojist~~

Üyeliği durduruldu

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

bunun yerine
for i = 1 to objrs.recordcount
if not objrs.eof then

bunu ekle
while not objrs.eof

ve bunun yerine
end if
objrs.movenext()
next

bunu
objrs.movenext()
wend

	
while not objrs.eof
	
		bolum2 = & "<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 _
		bolum2 = ""
objrs.movenext
wend

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

burada ortaya her ne koyarsan koy

response.write "hehe"

bile çalışmıyor ;

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

11-08-2010, 14:49:47

#12

denom

bunu
& "</table>" & vbcrlf _
' BURADAN İTİBAREN DÖNGÜ BAŞLAMALI

bununla
& "</table>"
' BURADAN İTİBAREN DÖNGÜ BAŞLAMALI

bunu
& "</th>" & vbcrlf _
bolum2 = ""

bununla
& "</th>"
bolum2 = ""

11-08-2010, 14:58:02

#13

denom

böyle olmalı sanırım.

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>"
' BURADAN İTİBAREN DÖNGÜ BAŞLAMALI

while not objrs.eof

bolum = "<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 _
& "</tr>" & vbcrlf _
& "</table>"
response.write bolum

objrs.movenext()
wend

' DÖNGÜ BURADA BİTMELİ

11-08-2010, 15:04:43

#14

~~teknolojist~~

Üyeliği durduruldu

bu çıktıyı ekrana bastı

hem de verinin formdan gelmesini beklemeden.

<%= Request.ServerVariables("URL") %>

aynı sayfa içinde form.

11-08-2010, 15:08:22

#15

tolgasen

🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺

if ile başlar end if ile sonlandırmazsan deyim sonu gerekli hatası alırsın. Evde olsam çözerdikte evde değilim

11-08-2010, 23:14:35

#16

Twinsens

Kimlik doğrulama veya yönetimden onay bekliyor.

birde söyle dener misin? eğer hata verirsede hatayı buraya yazarmısın acaba tam olarak istediğin şekli anlayamadım anladığım kadarıyla yazdım

Do While Not objrs.EOF
 bolum2 = & "<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 _ 
        bolum2 = ""
objrs.MoveNext
Loop

11-08-2010, 23:23:53

#17

~~teknolojist~~

Üyeliği durduruldu

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

birde söyle dener misin? eğer hata verirsede hatayı buraya yazarmısın acaba tam olarak istediğin şekli anlayamadım anladığım kadarıyla yazdım

Do While Not objrs.EOF
 bolum2 = & "<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 _ 
        bolum2 = ""
objrs.MoveNext
Loop

tamam dostum teşekkur ederim yarın deniyeceğim.