Fejl med database..

..Den gir 500 server fejl meddelse..please help!!

<%
Option Explicit
%>
<html>
<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
              "Data Source=" & Server.MapPath("\cold\db\ra.mdb") & ";" & _
              "Persist Security Info=False")

sSQL = "SELECT Author, topic, text, date FROM news"
Set oRS = oConn.Execute(sSQL)
%>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>New Page 2</title>
</head>

<body>
<%
Do While NOT oRS.EOF
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="616" id="AutoNumber1" height="19">
  <tr>
    <td width="614" bgcolor="#808080" height="1"><font face="Tahoma">&nbsp;<b>
    <%= oRS("topic").Value %> // Posted by <%= oRS("author").Value %> at <%= oRS("date").Value %></b></font></td>
  </tr>
  <tr>
    <td width="614" bordercolor="#FFFFFF" height="1">&nbsp;</td>
  </tr>
  <tr>
    <td width="614" bordercolor="#FFFFFF" height="1"><font face="Tahoma"><%= oRS("text").Value %></font></td>
  </tr>
  <tr>
    <td width="614" height="1"><font face="Tahoma">&nbsp;</font></td>
  </tr>
  <tr>
    <td width="614" bgcolor="#808080" height="19">
    <p align="right"><font face="Tahoma">&nbsp;..edit | ..delete</font></td>
  </tr>
</table>
<%
oRS.MoveNext

Loop

oConn.Close
Set oRS = Nothing
Set oConn = Nothing
%>
</body>

</html>