Tilføj nyhed = timeout

Jeg har lavet et nyhedsscript og det virker perfekt pånær en lille ting. Hvis man vil tilføje en nyhed så skal man gøre det meget hurtigt, hvis man bruger mere end ca. 3min på at skrive nyheden så linker den dig bare ud til forsiden ("default.asp") og det forstår jeg ikke!

I får simpelthen bare hele koden:
<font face=verdana size=2>
<form method=post action="tilfoej_nyhed.asp?mode=AddNew" id=form name=form>
<b>Vælg Logo:</b>
<br>
<SELECT id=logo name=logo class="rolldown" style="FONT-SIZE: x-small; BACKGROUND-COLOR: #333333">
<%
      strPath = Server.MapPath("./gfx/logos/")

      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objFolder = objFSO.GetFolder(strPath)

      For Each objFile In objFolder.Files

      If LCase(Right(objFile.Name, 3)) = "jpg" Then
      %>
      <OPTION value="<%=objFile.Name%>"><%=objFile.Name%></OPTION>
   
    <%
      End If
 
      Next
%>
</select>
<br>
<br>
<b>Vælg Sektion:</b>
<br>
<SELECT id="sektion" name=sektion class="rolldown" style="FONT-SIZE: x-small; BACKGROUND-COLOR: #333333">
      <%
      Set DataConn = Server.CreateObject("ADODB.Connection")
      DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
      DSN = dsn & "DBQ=" & server.mappath("db/db.mdb")
      DataConn.Open DSN
     
      Set nyhed = Server.CreateObject("ADODB.RecordSet")
      nyhed.open "Select * From [sektioner] order by sektion_kort asc", DataConn
      if not nyhed.EOF then
      nyhed.MoveFirst
      end if
      do while not nyhed.EOF
      %>
     
      <OPTION value="<%=nyhed("id")%>"><%=nyhed("sektion_kort")%></OPTION>
     
      <%
      nyhed.MoveNext
      loop
      nyhed.Close
      set nyhed = nothing
      Dataconn.Close
      %>
   
</select>
<br>
<br>
<b>Emne:</b>
<br>
<INPUT type=text id="emne" name=emne size=82 class="input">
<br>
<br>
<b>Beskrivelse:</b>
<br>
<i>Max 180 tegn ca. - Den stopper selv!</i>
<br>
<INPUT type=text id="beskrivelse" name=beskrivelse maxlength=180 size=82 class="input">
<br>
<br>
<b>Tekst:</b>
<br>
<textarea id="tekst" name=tekst size="25" class="textbox"  rows="15" cols="95"></textarea>
<br>

<br>
<INPUT type="submit" value="Tilføj" id=submit1 name=submit1 class="button">
<input type="hidden" value=AddNew name=mode id=mode>
</form>   

<br>
<br>

<form METHOD="Post" ENCTYPE="multipart/form-data" ACTION="upasfile.asp?side=guide" ID="Form4">
<%if request.querystring("id") = ("uploaded") then%><b><font face=verdana size=2 color=red>Billedet er nu uploadet til serveren!</font></b><%else%><b><font face=verdana size=2 color=white>Logo Upload:</font></b><%end if%>
<br>
<input type='file' size='30' name='blob' Value='' ID="File1" class=input>
<br>
<input type='submit' name='Enter' value='Upload' ID="Submit5" class=input>
</form>
</font>


<%if Request.form("mode") = "AddNew" then

    Set DataConn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; "
    DSN = dsn & "DBQ=" & server.mappath("db/nyheder.mdb")
    DataConn.Open DSN
    Set Record = Server.CreateObject("ADODB.RecordSet")
    Record.open "Select * From [pre_nyheder] Order by id", DataConn, 1, 3

    Record.AddNew
        Record.Fields("navn") = brugerinfo("id")
        Record.Fields("emne") = Request.form("emne")
        Record.Fields("nyhed") = Request.Form("tekst")
        Record.Fields("beskrivelse") = Request.form("beskrivelse")
        Record.Fields("nyhed") = Request.Form("tekst")
        Record.Fields("logo") = Request.form("logo")
        Record.Fields("sektion") = Request.Form("sektion")
        Record.Fields("dato") = date
        Record.Fields("tid") = TIME
        Record.Fields("ip") = request.ServerVariables("REMOTE_ADDR")
    Record.Update

    Record.Close
    set Record = nothing
    Dataconn.Close

    Response.Redirect("medlem.asp?side=ret_prenyhed&id_navn=" & brugerinfo("id"))

end if%>