ASP小白请教大家后台代码问题
下面这段代码，现在最多能显示4条信息，每行两条，如何改成不限制条数，没行只显示一条，我没学过ASP，临时要改些东西，希望高手们给予帮助啊

sub sHowList(bytecount)

set oRs=Server.CreateObject("ADODB.Recordset")

oRs.Open "select top 8 Prod_Id,Prod_Name,Prod_Date,Kid_id,Istj,Prod_Vod,Prod_Pic from [Prod] where Kid_id=2 and Istj=0 order by Prod_id desc",conn,1,1

Content =Content & "<Table width='250'  border='0' align='center' cellpadding='0' cellspacing='0'>"

i=1

do while Not oRs.Eof and i<=2 

  Content =Content & "<Tr align='left' valign='middle'>"

  	for j=1 to 2 

	if Not oRs.eof then

  Content =Content & "<td  height='22' width='125'  ><img src='Images/Dot_001.gif' border='0' align='absmiddle'> <a Href='ViewVod.Asp?id="&oRs("Prod_Id")&"' Target='_blank' title='"&oRs("Prod_Name")&"'>"&GotToPic(oRs("Prod_Name"),bytecount)&"</a></td>"  

	oRs.MoveNext

	End if

	Next

  Content =Content & "</tr>"

  i=i+1 

  Loop

Content =Content & "</table>"

oRs.close

set oRs=Nothing

Response.write Content

End sub

------解决方案--------------------
如何改成不限制条数，没行只显示一条，我没学过ASP
re:

do while Not oRs.Eof 

    Content =Content & "<Tr align='left' valign='middle'><td  height='22' width='125'  ><img src='Images/Dot_001.gif' border='0' align='absmiddle'> <a Href='ViewVod.Asp?id="&oRs("Prod_Id")&"' Target='_blank' title='"&oRs("Prod_Name")&"'>"&GotToPic(oRs("Prod_Name"),bytecount)&"</a></td></tr>"  

    oRs.MoveNext

Loop