n سطر در 4 ستون

[internet2]

سلام
اگر بخواهم روکورد های دیتابیس Access را نمایش دهم و فقط فیلد id که کلید اصلی است و Autonumber می باشد روی صفحه چاپ شود

مثلا یک جدول مثل جدول روزهای ماه ( تقویم) نمایش داده شود و رکورد یکه که id 1 می باشد در سر اول در ستون اول، id 2 در سطر اول و ستون دوم و ... نمایش داده شود


چگونه است

یک مثال تصویری پیوست می باشد

[mosyhey]

یک مثال می زنم. در این مثال متغیر id_int تعداد ID های شماست که بایستی نشان داده شود (در این مثال 18 تا) و متغیر sotoon_int نیز تعداد ستون هاست (در این مثال 4 تا) که هر دو را هر چه خواستید تنظیم کنید.
در این مثال اعداد کنتور c1_int در خط 15 در خانه های جدول چاپ می شود که بایستی این تکه را عوض کنید.


<%
Dim id_int
Dim sotoon_int
Dim c1_int
Dim c2_int
id_int=18
sotoon_int=4
c1_int=1
Response.Write("<table border='1'>")
Do While c1_int<=id_int
Response.Write("<tr>")
For c2_int=1 to sotoon_int
Response.Write("<td>")
If c1_int<=id_int Then
Response.Write(c1_int)
End If
Response.Write("</td>")
c1_int=c1_int+1
Next
Response.Write("</tr>")
Loop
Response.Write("</table>")
%>