ASP multi-Column Display Information

You can set your own style
<%
Dim maxcount' number of information to be displayed
Maxcount = 10
Dim linecount 'specifies the number of information displayed for a row.
Linecount = 4
'Determine the number of existing information items in the database
SQL = "select * from news where bigclassname = 'Company dynamics '"
Set rs = server. Createobject ("ADODB. recordset ")
Rs. Open SQL, Conn, 1, 1
Dim RC
Rc = Rs. recordcount

Response. Write ("<Table width = '000000' Height = '000000' border = '0'> ")

'Judge whether the data in the database is less than maxcount. If it is less, it will be displayed in one row.
If RC <= linecount then
Response. Write ("<tr> ")
Do while not Rs. EOF
Response. Write ("<TD>" & RS ("title") & "</TD> ")
Rs. movenext
Loop
Response. Write ("</tr> ")
Rs. Close
Set rs = nothing

'Database data is larger than maxcount
Else
Dim fuzhu
Fuzhu = 0
Rs. Close
Set rs = nothing
Sql1 = "select top" & maxcount & "* from news where bigclassname = 'Company dynamics '"
Set RS1 = server. Createobject ("ADODB. recordset ")
Rs1.open sql1, Conn, 1, 1

Response. Write ("<tr> ")
Do while not rs1.eof
If fuzhu mod linecount = 0 then
Response. Write ("</tr> <tr> ")
End if
Response. Write ("<TD>" & RS1 ("title") & "</TD> ")
Fuzhu = fuzhu + 1
Rs1.movenext

Loop
Rs1.close
Set RS1 = nothing
Response. Write ("</tr> ")

End if

Response. Write ("</table> ")
%>