hvad fan... er der galt med denne sætning ?

ok
den retunerer
HTTP 500 - Intern serverfejl
Internet Explorer

Ingen side eller oplysninger om fejl.

Meningen med funktionen er at den skal, når en side i DB'en loades skal den tælle readcount op med en i den pågældende artikels celle.

Meningen er at man så kan gå ind og se hvilke artikler som er mest populære på siden

selve koden poster jeg lige:

<%
If session("id") = "" then
  session("id") = 0
end if

Response.Buffer = True

' Tilslutning til databasen
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("Admin/CMS.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

Set objRs = Con.Execute("SELECT * FROM articles WHERE ID=" & Session("id"))
Set objRsForside = Con.Execute("SELECT * FROM forside WHERE ID=" & Session("id"))

if not objRs.Eof Then

    strArticle = objRs("article")

        If Session("Readcount") = "" Then   

              objRS.Open "SELECT readcount FROM articles"
            objRS("Readcount") = objRS("Readcount") + 1

        objRS.Update

        objRS.Close
        Set objRS = Nothing
       
        session("Readcount")=""   
       
        else

        end if

else
  strArticle = objRsForside("article")
End if
%>

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<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>Ny side 1</title>
<link rel="stylesheet" type="text/css" href="default.css">
<STYLE type=text/css>
BODY{
scrollbar-3dlight-color: #000000;
scrollbar-arrow-color: #000000;
scrollbar-base-color: #FFFFFF;
scrollbar-dark-shadow-color: #FFFFFF;
scrollbar-face-color: #C0C0C0;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #FFFFFF;
}
</STYLE>

</head>

<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" >

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="100%" height="100%">
    <tr>
      <td style="padding: 5" valign="top" class="text">
        <% Response.Write(strArticle) %>
      </td>
    </tr>
  </table>
  </center>
</div>
</body>

</html>
<%
    ' Lukker forbindelsen
    Con.Close
    Set Con = Nothing
%>

Med venlig hilsen
Daniel Duvald