שגיאת שרת (?)

תוכן קובץ הASP

                 <%
id=request.querystring("id")
Dim Conn00, RS00, SQL00
Set RS00 = Server.CreateObject("ADODB.Recordset")
Set Conn00 = Server.CreateObject("ADODB.Connection")
Conn00.Open "DBQ=" & Server.Mappath("../_private/magazine2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL00 = "SELECT * FROM blocks where id=" &id
RS00.Open SQL00, Conn00
while not RS00.EOF
%>
<BR>
<%=   RS00("header")    %>
<BR>
<img src="<%=   RS00("img")    %>" width="350" height="250" border="1" style="border: 1px solid #FFFFFF">
<BR>
<a href="<%=   RS00("link")    %>">לפרטים נוספים לחצו פה ::</a>
<BR>
<%
Wend
RS00.Close
Set RS00 = Nothing
Conn00.Close
Set Conn00 = Nothing
%>