Newbie: \"tjekke-om-posten-findes\"-problemet

OK, der skal ikke meget til før jeg er på dybt vand! Nå, er der een der gider rende dette igennem:

<%
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 = DB.Execute(\"Select * From Session Where User = \'\" & User & \"\'\")
    If    RS.EOF Then
        Sql = \"INSERT INTO Session (User, Rettigheder, Side)\"
        Sql = Sql & \"VALUES(\'\" & User & \"\',\'\" & Rettigheder & \"\',\'\" & Side & \"\')\"
    RS.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>
<% Do While Not Record.EOF %>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"User\")%></td>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Rettigheder\")%></td>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Side\")%></td>
    </tr>
<%
Record.MoveNext
Loop
%>
    <tr>
        <td align=\"center\" colspan=\"3\" bgcolor=\"#FF0000\" style=\"border-left: 1 solid #FFFFFF; border-right: 1 solid #FFFFFF; font-family: Arial; font-size: 10px; color: #FFFFFF\"><a href=\"mailto:dsba@nne.dk?subject=Ny nyhed\" style=\"color: #FFFFFF\">Nyheder til DSBa</a></td>
    </tr>
    <tr>
        <td valign=\"top\" align=\"center\" colspan=\"3\" height=\"7\">Det var så det!</td>
    </tr>
</table>

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

<%
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)
%>
<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>
<% Do While Not Record.EOF %>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"User\")%></td>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Rettigheder\")%></td>
        <td bgcolor=\"#FF0000\" style=\"border-top: 0 solid #FFFFFF; border-bottom: 0 solid #FFFFFF; border-left: 1 solid #FFFFFF; border-right: 0 solid #FFFFFF; padding-top: 0; padding-bottom: 0; padding-left: 3; padding-right: 3; font-family: helvetica, arial; color: #FFFFFF; font-size: 12px; font-weight: bold\"><% Response.Write Record(\"Side\")%></td>
    </tr>
<%
Record.MoveNext
Loop
%>
    <tr>
        <td align=\"center\" colspan=\"3\" bgcolor=\"#FF0000\" style=\"border-left: 1 solid #FFFFFF; border-right: 1 solid #FFFFFF; font-family: Arial; font-size: 10px; color: #FFFFFF\"><a href=\"mailto:dsba@nne.dk?subject=Ny nyhed\" style=\"color: #FFFFFF\">Nyheder til DSBa</a></td>
    </tr>
    <tr>
        <td valign=\"top\" align=\"center\" colspan=\"3\" height=\"7\">Det var så det!</td>
    </tr>
</table>

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

Med dette får jeg fejlen:

Microsoft VBScript runtime (0x800A01A8)
Object required: \'\'

...og jeg ved ikke hvordan jeg skal få det til at virke! Er der en der vil hjælpe med det?