Nemt - Ændre skrifttype + lidt til

Jeg har denne kode, men hvordan ændre jeg skrifttype.

Det ville også være lækkert hvis det var muligt at få liste lodret i stedet for vandret.

<!--#INCLUDE FILE=\"dbconnect.asp\"-->
<%
Response.Buffer = false

sql = \"select * from tbloverskrift where aktiv = true\"
rs.open sql, conn
dim varTemp()
dim intCount
Response.Write \"<center><table border=0 cellspacing=0>\"
Response.Write \"<tr>\"
do while not rs.eof

Response.Write \"<th bgcolor=\'#c0c0c0\'>\" & rs(\"overskrift\") & \"</th><th bgcolor=\'#c0c0c0\'> </th>\"
intcount = intcount +1
    redim preserve vartemp(intcount)
    vartemp(intcount) = rs(\"id\")
rs.movenext

loop
rs.close

dim i
Response.Write \"</tr><tr>\"

for i = 1 to intcount
sql = \"select * from tblmpunkt where fk_overskrift = \" & vartemp(i)
rs.open sql, conn

Response.Write \"<td valign=\'top\'>\"
do while not rs.eof

Response.Write \"<li><a href=\'\" & rs(\"url\") & \"\'>\" & rs(\"mpunkt\") & \"</a></li>\"

rs.movenext
loop
Response.Write \"</td><td> </td>\"
rs.close
next
Response.Write \"</tr></table></center>\"




%>