come semplificare ciclo do...

[Subroutine72]

-------------------------------------------------------------
Dim j
For j=1 to P

if j=1 then

if totrec<3 then
totrec1=totrec
else totrec1=3
end if

for i=0 to totrec1-1

response.write thetext(i)
response.write "
"
response.write CODCORSOX(i)
response.write "
"

next

end if

if j=2 then

if totrec<6 then
totrec2=totrec
else totrec2=6
end if

for i=3 to totrec2-1
response.write thetext(i)
response.write "
"
response.write CODCORSOX(i)
response.write "
"

next

end if

next

-----------------------------------------------------------
sicome nel ciclo j varia da 1 a 50, come si può semplificare per non riscrivere 50 volte il codice?