Categorize multiple rows and columns to display the contents of a database (part of the code in the movie server)

All movies in the movie Database are displayed in one page by category in three columns per row.
<table border= "0" cellpadding= "0" cellspacing= "0" bordercolor= "#39599C" bordercolorlight= "#000000" bordercolordark= "#39599C" width= "573" height= "429" bgcolor= "#39599C" >
<tr>
&LT;TD height= "valign=" "Top" ><font color= "#000000" > Your current Location: </font><font color= "#000000" > <a class= "Top" href= "<%=application (" url ")%>" ><%=application ("Home")%></a>-<a class= " Bianjie "href=" <%=application ("URLs")%> "><%=application (" homes ")%></a>-all films </font> </td>
</tr>
<TR>
&LT;TD valign= "Top" >
<table width= "100%" border= "0" cellpadding= "0" cellspacing= "0" >
<%
' Show type part code
Dim rstype,sql
Sql= "Select Typeid,type from Type"
Set Rstype=server. CreateObject ("ADODB.") Recordset ")
Rstype.open sql,conn,1,1
Do as not rstype.eof
Response. Write ("<tr bordercolor= ' #39599C ' bordercolorlight= ' #000000 ' bordercolordark= ' #39599C ' bgcolor= ' #39599C ' >")
Response.Write ("<td height= ' bgcolor= ' #6699CC ' align= ' center ' ><font color= ' #FFFF00 ' size= ' 4 ' >")
Response.Write Rstype ("type") ' Movie type name
Response.Write ("</font></TD></TR>")
Response.Write ("<tr bordercolor= ' #39599C ' bordercolorlight= ' #000000 ' bordercolordark= ' #39599C ' bgcolor= ') 39599C ' > ')
Response.Write ("<td height= ' >")