Problem med nyhedssystem!

Hvorfor fungerer dette ikke? Jeg får fejl, men min server skriver ikke hvilken fejl, den skriver bare at der er en 500 Internal error!

<% If Request.Querystring ("id") = "nyhed" Then %>
<HTML>
<HEAD>
<TITLE> Nyhedssystem </TITLE>
</HEAD>

<BODY>

</BODY>
</HTML>
<% Elseif Request.Querystring ("id") = "add" Then %>
<HTML>
<HEAD>
<TITLE> Nyhedssystem </TITLE>
</HEAD>

<BODY>
<form method="post" action="default.asp?id=save">
Overskrift:  <input type="text" name="overskrift"><br>
Forfatter:  <input type="text" name="forfatter"><br>
Tekst:  <input type="text" name="tekst"><br>
Dato:  <input type="text" name="dato"><br>
<input type="submit" value="Opret artikel">
</form>
</BODY>
</HTML>
<% Elseif Request.Querystring ("id") = "save" Then %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN
strSQL = "Insert into nyheder (overskrift, forfatter, tekst, dato) values('" & Request.Form("overskrift") & "','" & Request.Form("forfatter") & "','" & Request.Form("tekst") & "','" & Request.Form("dato") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<a href='default.asp'>Tilbage</a>
<% Elseif Request.Querystring ("id") = "top5" Then %>
<HTML>
<HEAD>
<TITLE> Nyhedssystem </TITLE>
</HEAD>

<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN

strSQL = "Select top 5 * from nyheder"
Set rs = Conn.Execute(strSQL)

Do

  %><a href='default.asp?nyhed=<% Response.Write rs("id") %>'><% Response.Write rs("overskrift") & "<br>" %></a><%

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>
<% Elseif Request.Querstring ("id") = "all" Then %>
<HTML>
<HEAD>
<TITLE> Nyhedssystem </TITLE>
</HEAD>

<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("nyheder.mdb")
Conn.Open DSN

strSQL = "Select * from nyheder"
Set rs = Conn.Execute(strSQL)

Do

%> <a href="default.asp?nyhed=<% Response.Write rs("id") %>">
<%
  Response.Write rs("Overskrift")
  Response.write "<br>"
%> </a> <%

  rs.MoveNext

Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>
<% Else Response.redirect "default.asp?id=top5"
End if %>

<html>
<head>
<title>Test-side til Cotus</title>
</head>
<body>

<%
view = Request.QueryString("view")

Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("nyheder.asp")

set rs = Conn.execute("SELECT * FROM nyheder WHERE Id='" & id &"'")

overskrift = rs("overskrift")
forfatter = rs("forfatter")
dato = rs ("dato")
tekst = rs ("tekst")
%>
<table>
<tr>
<td>Overskrift</td>
<td><%=overskrift%></td>
</tr>
<tr>
<td>Forfatter</td>
<td><%=forfatter%></td>
</tr>
<tr>
<td>Dato</td>
<td><%=dato%></td>
</tr>
<tr>
<td>Tekst</td>
<td><%=tekst%></td>
</tr>
</table>

<%
rs.Close
set rs = nothing

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