Nedenstående kode henter alle kolonne navne fra en tabel, og udskriver dem.
Jeg vil så sætte en width på tablen ved hjælp af javascript, men er løbet
ind i det problem, at det ikke kan lade sig gøre
Jeg forsøger at sætte widthen ved hjælp af onload i body, men det er kun
skærmfarven der bliver ændret.
Hvordan kan jeg ændre på en table width når siden loader???
Allan Bach
<% function skriv_items (modtag)
for each item in modtag
'cat.Columns
set cat1 = modtag (cstr (item))
'cat.Columns (cstr (item))
lang = cat1.DefinedSize
if cat1.Type = 3 then lang = 5
if cat1.Type = 135 then lang = 70
lang1 = lang1 + lang
response.Write ("<td width='"& lang &"'>" & item & "::" & lang1 &
"</td>")
next
end function
lang1 = 0
'******************************************************************
'Opret forbindelse til databasen
set conn = server.CreateObject ("adodb.connection")
conn.Open ("dsn=movie")
'******************************************************************
'Sæt ADOX op
set connadox = server.CreateObject ("ADOX.Catalog")
'Hent oplysninger om tabellen
set cat = server.CreateObject ("ADOX.table")
'Hent oplysninger om de enkelte tabeller
set cat1 = server.CreateObject ("adox.column")
'*******************************************************************
'Åben for ADOX objektet
connadox.ActiveConnection = conn
'*******************************************************************
'Sæt cat til en table
set cat = connadox.Tables ("tbfilm")
'*******************************************************************
'Udskriv debug informationer på skærmen
a = 0
for each item in cat.Columns
set cat1 = cat.Columns (cstr (item))
a = a + 1
response.Write ("Felt nr:" & a & " :: Feltnavn " & item & " ::
Datatype: " & cat1.Type & " :: " & cat1.Attributes & " :: Feltlængde :" &
cat1.DefinedSize & "::" & cat1.Precision & "<br>" )
next
'*******************************************************************
'Udskriv data på skærmen
Response.Write ("*********************************")
response.Write ("<table border='1' id='table1' name='table1'>")
response.Write ("<tr>")
response.Write (skriv_items (cat.Columns))
response.Write ("</TR>")
response.Write ("</table>")
%>
<meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
<meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
<meta name="vs_defaultClientScript" content="JavaScript">
</HEAD>
<body onload="opdater (table1)" id="body1">
<script language="javascript">
function opdater(modtag)
{ tal = '<%response.write (lang1)%>';
table1.width = 230;
document.bgColor = '#a3e1c2';
}
function test()
{ table1.style.width = 230;
document.bgColor ='#123123';
}
</script>
<table ><tr><td onclick="test()">fdfdfdfdf</td></tr></table>
</body>
</HTML>