Kolonner kommer ud i forkert størrelse
Jeg har lavet følgende kode som skriver entabel ud fra en Access database.
Jeg har lavet en Case sætning som skulle skrive
de forskellige kolonner ud i forskellige størrelse.
Men det virker ikke.
De har den størrelse som teksten har i accessdatabasen
bortset fra den først som hedder navn, den er
mega lang.
Noget der kan gennemskue problemet?
Her er koden:
<html>
<title>Hente Data Fra Databasen</title>
<head><meta http-equiv="refresh" content="35; url=aarhustest.asp">
<div align="center">
<center>
' <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="64">
' <tr>
' <td width="234%" align="center" bgcolor="#C0C0C0" height="19">
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\data\test.mdb"
Conn.Open DSN
SQL = "SELECT * FROM Listen"
Set rs = Conn.execute(SQL)
dim f
'Response.write "<table align=""Center"" border=""1"">"
'Response.write "<td align=""Center"" & colspan=""1"" & style=""border: 1px solid black"">"
'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=100>" & "<strong>" & f.name & "<strong/></td>"
case "Navn"
response.write "<td align=center>" & "<width=30>" & "<strong>" & f.name & "<strong/></td>"
case "Mobiltelefon"
response.write "<td align=center>" & "<width=30>" & "<strong>" & f.name & "<strong/></td>"
case "Start"
response.write "<td align=center>" & "<width=30>" & "<strong>" & f.name & "<strong/></td>"
case "Slut"
response.write "<td align=center>" & "<width=30>" & "<strong>" & f.name & "<strong/></td>"
case "Distriktleder"
response.write "<td align=center>" & "<width=30>" & "<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>", NBSPACE)
response.write "</table>"
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<p>
</td>
</tr>
</table>
</center>
</div>
<p>
</p>
</head>
<body>
</body>
</html>
