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İ