ลงโฆษณา

Option Explicit
Dim row,numTD

Dim iLoop,kLoop

CONST allData = 19 'จำนวนข้อมูล
CONST column = 2  'จำนวน หลัก
row = 0
numTD = 0

If allData mod column > 0 Then

row = (allData/column)+1

Else

row = allData/column

End if

Response.Write "<table width=""100%"" border=""1"">"

For iLoop = 1 To row

Response.Write "<tr>"

For kLoop = 1 To column

numTD = numTD+1

Response.Write "<td>"

If numTD > allData Then

Response.wRite "&nbsp;"

Else

Response.Write numTD

End if

Response.Write "</td>"

Next

Response.Write "</tr>"

Next

Response.Write "</table>"