ok her er mit script :-)
<html>
<head>
<title>Untitled</title>
</head>
<body>
<CENTER><b><IMG SRC=\"skema.jpg\" WIDTH=\"194\" HEIGHT=\"48\" BORDER=\"0\"></b><P>
<FONT SIZE=\"2\" FACE=\"VERDANA\"><A HREF=\"
http://www.dianna.dk/skema/tilmeld.asp\">Tilmeld dig skemaet</A> <A HREF=\"
http://www.dianna.dk/skema/login.asp\">Ret i dine oplysninger</A></FONT><P>
<table border=2 CELLPADDING=5 COLS=1 WIDTH=\"90%\" HEIGHT=\"50\" BORDERCOLORLIGHT=\"#CC33CC\" BORDERCOLORDARK=\"#CC33CC\">
<tr bgcolor=\"#FFFFCC\"><td><FONT SIZE=\"2\" FACE=\"VERDANA\">ID</FONT></td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Navn</td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Startvægt</td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Vægt nu</td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Vægttab</td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Vil tabe</td><td><FONT SIZE=\"2\" FACE=\"VERDANA\">Notat</td></td></tr>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DBQ=c:\\inetpub\\wwwroot\\db2.mdb;DefaultDir=c:\\inetpub\\wwwroot;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;\"
SQL=\"SELECT * FROM table1\"
Set RS= Server.CreateObject(\"ADODB.RecordSet\")
rs.open SQL,conn
do while not rs.eof and not rs.bof
response.write \"<tr><td>\" & rs(\"id\") & \"</td><td>\" & rs(\"navn\") & \"</td><td>\" & rs(\"startvægt\") & \"</td><td>\" & rs(\"vægtnu\") & \"</td><td>\" & rs(\"vægttab\") & \"<td>\" & rs(\"viltabe\") & \"</td></tr>\"
rs.movenext
loop
rs.close
Conn.close
%>
</table></CENTER>
<body text=\"#D034D0\" bgcolor=\"#FFFFCC\" link=\"#D034D0\" vlink=\"#D034D0\" alink=\"#D034D0\">
</html>
