gå til side efter fuldførelse

Mon ikke dette kan gøre det?:

<%
if session(\"godkendt\") = False then
response.redirect \"login.asp\"
end if
%>
<% mode = request(\"mode\") %>
<% if mode = \"\" then %>
<HTML>
<HEAD>
<!-- Minus AutoDato -->
    <TITLE>Nyheds system.</TITLE>
<META NAME=\"Generator\" CONTENT=\"Stone\'s WebWriter 3\">
<!-- Minus AutoDato -->
    <TITLE>Nyheds system.</TITLE>
<META NAME=\"Generator\" CONTENT=\"Microsoft FrontPage 4.0\">
</HEAD>
<BODY TEXT=\"#000000\" LINK=\"#000000\" VLINK=\"#808080\" ALINK=\"#C0C0C0\">
<form action=\"admin.asp?mode=send?alle=oplysninger\" method=\"POST\" class=\"css\">
    <div align=\"center\">
      <center>
    <table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"90%\">
        <tr>
            <td align=\"left\" width=\"40%\" valign=\"top\"><font size=\"3\"
            face=\"Arial\">Overskrift: </font></td>
            <td colspan=\"2\" width=\"60%\"><INPUT TYPE=\"text\" NAME=\"overskrift\"></td>
        </tr>
        <tr>
            <td align=\"Left\" valign=\"top\" width=\"20%\"><font
            size=\"3\" face=\"Arial\">Nyhed:</font></td>
            <td valign=\"top\" width=\"80%\">
            <textarea name=\"nyhed\" rows=\"4\"
            cols=\"40\"></textarea></td>
        </tr>
        <tr>
            <td align=\"left\" width=\"20%\" valign=\"top\"><font size=\"3\"
            face=\"Arial\">Forfatter: </font></td>
            <td colspan=\"2\" width=\"80%\"><INPUT TYPE=\"text\" NAME=\"forfatter\"></td>
        </tr>
            <td width=\"20%\"></td>
            <td colspan=\"2\" width=\"80%\"><input type=\"submit\"
    name=\"B1\" value=\"Tilføj\"> <INPUT TYPE=\"reset\" NAME=\"Slet\"></td>
        </tr>
    </table>
      </center>
    </div>
</form>

<center><FONT FACE=\"Arial\" SIZE=\"+2\">Nyhed tilføjet.</FONT><BR>
<A HREF=\"default.asp\" TARGET=\"_top\">Til forsiden</A></center>

</BODY>
</HTML>
<% end if %>

<% if mode = \"send?alle=oplysninger\" then %>
<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From nyheder\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      rs(\"overskrift\") = Request.form(\"overskrift\")
      rs(\"nyhed\") = Request.form(\"nyhed\")
      rs(\"forfatter\") = Request.form(\"forfatter\")
      rs.Update

response.redirect(\"default.asp\")


    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
%>
<%
<% end if %>