Tjekke post i recordset

Jeg skal tjekke, hvilke rettigheder brugeren har på mit site - derfor har jeg lavet dette:

<%
Dim Conn
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\\\Nne00\\wwwroot\\database\\site-ka\\suporg.mdb;\"

\' Find Brugerens loginnavn (skal være på formen domæne/bruger)
    User = Request.Servervariables(\"LOGON_USER\")

    tmpArr = SPLIT( User, \"\\\" )
    Side = tmpArr(0)
    User = tmpArr( UBOUND(tmpArr) )
   
    session(\"User\") = lcase(User)

    Rettigheder = 1

    Dim RS, DB
    Set RS = Conn.Execute(\"Select * From Session Where User = \'\" & User & \"\'\")
    If    RS.EOF Then
        Sql = \"INSERT INTO Session (User, Rettigheder, Side)\"
        Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\"
    Conn.Execute (SQL)
   
\'    Her hiver vi indholdet af databasen ud, sorterer dem efter User
    Sql = \"SELECT * FROM Session ORDER BY User DESC\"
    Set Record = Conn.Execute(Sql)
%>
<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>New Page 1</title>
</head>

<body>
<table cellspacing=\"0\" width=\"200\" cellpadding=\"0\">
    <tr>
        <td align=\"center\" colspan=\"3\">Resultat fra database:</td>
    </tr>
    <tr>
        <td align=\"center\">User</td>
        <td align=\"center\">Rettigheder</td>
        <td align=\"center\">Domæne</td>
    </tr>

<% Do While Not Record.EOF %>
        <td style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"User\")%></td>
        <td align=\"center\" style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Rettigheder\")%></td>
        <td align=\"center\" style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Side\")%></td>
    </tr>
<%
Record.MoveNext
Loop
%>
</table>

</body>
</html>
<%
Else

\'    Her hiver vi indholdet af databasen ud, sorterer dem efter User
    Sql = \"SELECT * FROM Session ORDER BY User DESC\"
    Set Record = Conn.Execute(Sql)
   
    Bruger = \"Du er bruger\"
    Admin = \"Du er admin\"
   
    Dim Ret
    sql = \"select User from tabel\"
    set record=conn.execute(sql)
    If Instr(record(\"User\"), \"(\"\'User\'\")\") > 1 Then Ret = (\"Admin\")\"
    else
        Ret = (\"Bruger\")
    end if

%>
<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>New Page 1</title>
</head>

<body>
<table cellspacing=\"0\" width=\"200\" cellpadding=\"0\">
    <tr>
        <td align=\"center\" colspan=\"3\">Resultat fra database:</td>
    </tr>
    <tr>
        <td align=\"center\">User</td>
        <td align=\"center\">Rettigheder</td>
        <td align=\"center\">Domæne</td>
    </tr>

<% Do While Not Record.EOF %>
        <td style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"User\")%></td>
        <td align=\"center\" style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Rettigheder\")%></td>
        <td align=\"center\" style=\"font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Side\")%></td>
    </tr>
    <tr>
        <td align=\"center\" cellspan=\"3\">SÆTTES IND HER</td>

<%
Record.MoveNext
Loop
%>
</table>

</body>
</html>
<%
End if
Conn.Close
Set Conn = Nothing
%>

Der er faktisk først efter \"else\" det bliver interessant! Rettigheder kan have værdien 1 (bruger) og 2 (admin). Hvor ligger fejlen i det jeg har lavet og hvordan udskriver (skærm) jeg resultatet til der hvor jeg har skrevet \"SÆTTES IND HER\"?