muhtemelen hatayı döngü içinde üst kısma kendini bağlayamadığı için veriyor.
Yani veriyi içerde ne şekilde döndürdüğün ile ilgili değil.
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
for i = 1 to objrs.recordcount
if not objrs.eof then
bolum2 = strBody
bolum2 = 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 = ""
end if
objrs.movenext()
next
' DÖNGÜ BURADA BİTMELİ