چيدن رکورد ها به صورت جدول

[zorig4fun]

با سلام
من يک لوپ دادم که رکوردها را ميچينه حالا رکورد ها فقط يک سطون ميباشد و تعداد رکوردها زياد هست من ميخوام که رکورد ها را در ۵سطون يا بيشتر بچينم.

  <%    		

	'Do....While Loop to loop through the recorset to display the Words1
	Do While iWordCaunt1 < intTotalWord1
	
		'If there are no Word1's records left to display then exit loop
		If iWordCaunt1 >= intTotalWord1 Then Exit Do
		

		'Read in the profile from the recordset
		strWord1 = sarryWord1(0,iWordCaunt1)
  %>

  <tr>
    <td width="100%"><% = strWord1 %></td>
  </tr>
  <%
			
		'Move to the next record
		iWordCaunt1 = iWordCaunt1 + 1
					
		'Loop back round
		Loop

			%>

لطفا راهنمائی کنيد چکار کنم

 

[mosyhey]

با سلام
برای انجام این کار من یک مثال می زنم امیدوارم کمکتان کند.
فرض کنید ما یک جدول داریم به نام texts با یک ستون به نام text_ID. حال می خواهیم مطالب درون این جدول و فیلد به صورتی که گفتید نمایش داده شود. پس از برقراری ارتباط با دیتابیس در asp این گونه می نویسیم:

<%
Response.Write("<table>")
Dim cont0
Dim column_int
column_int=5
Set ors=oconn.Execute("SELECT text_ID FROM texts")
Do While Not ors.eof
	Response.Write("<tr>")
	For cont0=1 to column_int
		Response.Write("<td>")
		If Not ors.eof then Response.Write(ors("text_ID"))		
		Response.Write("</td>")	
		If Not ors.eof then ors.MoveNext
	Next
	Response.Write("</tr>")
Loop
Response.Write("</table>")
%>

توجه شود که در خط پنجم تعداد ستون مورد نظر را مساوی متغیر column_int قرار دهید. سایر پارامتر های جدول را هم مانند dir و align و رنگ و غیره را هم به همین کد ها اضافه کنید البته با سنگل کوتیشن (') به جای کوتیشن ('").
اگر مشکلی بود بگویید.