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