läsa från tabell

vad är det för fel i den här koden?

jag vill att den ska skriva ut data från tabell1 som ligger i stationer.mdb

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("stationer.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset") %\>

<% kossa = "SELECT * FROM Tabell1" %>
RecSet.Open kossa, Connect, adOpenStatic, adLockOptimistic %>

\<table border="0" cellpadding="0" cellspacing="0"\>

\<tr\>
\<th width="100"\>\<font size="1" face="verdana, arial"\>\<b\>info1\</b\>\</font\>\</td\>
\<th width="100"\>\<font size="1" face="verdana, arial"\>\<b\>info2\</b\>\</font\>\</td\>
    \</tr\>

<% Do While Not RecSet.EOF %>

\<tr\>
\<th\>\<font size="1" face="verdana, arial"\>\<% =RecSet("info1") %\>\</font\>\</td\>
\<th\>\<font size="1" face="verdana, arial"\>\<% =RecSet("info1") %\>\</font\>\</td\>
    \</tr\>

<% RecSet.MoveNext
Loop %>

<% RecSet.Close %>

mvh
tobbe