Fejlfinding i script...

Hvad er der galt her?

<HTML>
<HEAD>
<TITLE> The Donald Duck Club </TITLE>
</HEAD>

<BODY>
<% If Request.Querystring ("nyhed") = "add" Then %>
<form method="post" action="nyheder.asp?id=none&nyhed=save">
Overskrift (Max 50 tegn):  <input type="text" name="OVERSKRIFT"><br>
Forfatter (Max 50 tegn):  <input type="text" name="FORFATTER"><br>
Dato (F.eks. 26-04-02 - Max 8 tegn):  <input type="text" name="DATO"><br>
Besked:  <input type="text" name="BESKED"><br>
<input type="submit" value="Opret"></form>

<% Elseif Request.Querystring ("nyhed") = "top5" Then
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='nyheder.asp?id=none&nyhed=<% Response.Write rs("ID") %>'><% Response.Write rs("OVERSKRIFT") & "<br>" %></a><%
  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

Elseif Request.Querystring ("nyhed") = "top1" Then
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 1 * from nyheder"
Set rs = Conn.Execute(strSQL)
Do
  Response.Write rs("OVERSKRIFT") & "<br><br>"
  Response.write "<i>Af: "
  Response.Write rs("FORFATTER")
  Response.write "d. "
  Response.Write rs("DATO")
  Response.write "</i><br><br>"
  Response.Write rs("BESKED")

  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

%> <a href='nyheder.asp?nyhed=all'>Se alle artikler</a> <%

Elseif Request.Querystring ("nyhed") = "all" Then
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='nyheder.asp?id=none&nyhed=<% Response.Write rs("ID") %>'><% Response.Write rs("OVERSKRIFT") & "<br>" %></a><%
  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing

Elseif Request.Querystring ("nyhed") = "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, DATO, BESKED) values('" & Request.Form("OVERSKRIFT") & "','" & Request.Form("FORFATTER") & "','" & Request.Form("DATO") & "','" & Request.Form("BESKED") & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<font face=verdana size=2>
<%
Response.write "Artiklen "
Response.write Request.Form("OVERSKRIFT")
Response.write ", er nu oprettet, med følgende data:"
%> <br><br> <%
Response.write "Overskrift: " & Request.Form("OVERSKRIFT") %> <br> <%
Response.write "Forfatter: " & Request.Form("FORFATTER") %> <br> <%
Response.write "Dato: " & Request.Form("DATO") %> <br> <%
Response.write "Besked: " & Request.Form("BESKED") %> <br> <%

Else
Response.redirect "nyheder.asp?nyhed=all"
End if %>
</BODY>
</HTML>

Det skulle sådant set være et nyhedssystem, men det fungerer altså ikke... kan nogen give mig råd til hvordan jeg laver det om, så det bliver bedre, eller hvad fejlen er?

/cotus