Mindre skriftstørrelse i min database udskrift
Jeg har lavet nedenstående database udskrivning.Jeg vil gerne have teksten i tabellerne til at være meget små så de kan komme ud på en PDA.
Hvordan får jeg teksten i overskriften og tabellerne skrevet i f.eks. fontstørrelse 8 ???
<html>
<title>Cykeldatabase</title>
<head><meta http-equiv="refresh" content="35; url=cykler.asp">
<div align="center">
<center>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\cykler.mdb"
Conn.Open DSN
SQL = "SELECT * FROM cykler1"
Set rs = Conn.execute(SQL)
dim f
Response.write "<table border=""1"" cellpadding=""2"" cellspacing=""0"">"
'Udskriv kolonnenavne
if not rs.EOF then
Response.Write "<tr>"
for each f in rs.fields
select case f.name
case "Distrikt"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
case "Navn"
response.write "<td align=center width=100>" & "<strong>" & f.name & "<strong/></td>"
case "Cykler"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
case "Start"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
case "Dato"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
case "Slut"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
case "Butik"
response.write "<td align=center width=50>" & "<strong>" & f.name & "<strong/></td>"
end select
next
Response.write "</tr>"
end if
' 'Udskriv indhold af kolonne
Response.write "<tr><td>"
Response.write rs.getstring (, -1, "</td><td>", "</td></tr><tr><td>", " ")
response.write "</table>"
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%> </font>
<p>
</td>
</tr>
</table>
</center>
</div>
<p>
</p>
</head>
<body>
</body>
</html
