Liste over brugere!

<%
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
%>
<%
    strSQL = \"SELECT * FROM tabel order by id\"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then

        response.write \"<font face=\'Verdana\' size=\'4\'><b>Slet ringetoner:</b></font><br>\"
        response.write \"<font face=\'Verdana\' size=\'2\'><b>Giv dig god tid for den skal hente alt fra databasen</b></font><p>\"
        response.write \"<table border=\'1\'><tr><td><b>Bruger:</b></td><td><b>Navn:</b></td><td><b>Alder:</b></td><td><b>ICQ:</b></td></tr>\"

            Do While Not rs.EOF %>
                <tr>
                <td valign=\"top\">
                    <%response.write rs(\"bruger\") %>
                </td>
                <td valign=\"top\">
                    <%response.write rs(\"navn\") %>
                </td>
                <td valign=\"top\">
                    <%response.write rs(\"alder\") %>
                </td>
                <td valign=\"top\">
                    <%response.write rs(\"icq\") %>
                </td>
                </tr><%
                rs.movenext
            loop

        response.write \"</table>\"
    else
        response.write \"<b>Der er ingen ringetoner i databasen</b>\"
    end if
%>

Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key \'Temporary (volatile) Jet DSN for process 0x808 Thread 0x8dc DBC 0x25e0b1c Jet\'.

/bjarke2/members/allusers.asp, line 25


????

Damn, dumme fejl af mig!
Thx tpiil

ok, men jeg skriver lige en måde som er lidt nemmere:

<table border=\"1\">
<tr>
<td><b>Brugernavn:</b></td>
<td><b>Navn:</b></td>
<td><b>Alder:</b></td>
<td><b>ICQ:</b></td>
</tr>
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
SQL = \"SELECT * FROM tabel order by id\"
SET rs = Connect.Execute( SQL )
Do Until rs.EOF
%>
<tr>
<td valign=\"top\"><%= rs(\"brugernavn\") %></td>
<td valign=\"top\"><%=rs(\"navn\") %></td>
<td valign=\"top\"><%=rs(\"alder\") %></td>
<td valign=\"top\"><%=rs(\"icq\") %></td>
</tr>
<%
rs.movenext
loop
%>

den er lidt mere overskuelig og en anden måde at åbne db\'en med!

tpiil -> Tak men du behøvede ikke, det hele virkede jeg havde bare lavet en dum fejl i filen! Der gjorde det ikke duede....!