flere modes i samme fil..

Hvis man har flere modes i samme fil sakl man så gøre et eller andet for at det virker??

Koden for hele filen står nedenfor.
<%@ Language=VBScript %>
<% Response.Buffer = True %>



<%


\'Undersøger om session(\"Adgang\") er sat til Godkendt, er den ikke det bliver man sendt tilbage til adgangskontrol.asp
    If Not Session(\"Adgang\") = \"Godkendt\" Then
        Response.Redirect(\"login.asp?valg=forbudt\")
    End If
%>

<html>

<head>

<title>Lejlighedsinfo</title>
</head>
<body>
<%
set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\"..\") &\"../../../db/lejligheder.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * FROM lej where brugernavn like \'%\" & Request.Cookies(\"Oplysninger\")(\"Username\") & \"%\'\"
Set RS = conn.Execute(SQL)


If not rs.eof then
   


response.write \"<table width=\'100%\' border=\'0\' cellpadding=\'2\'>\"

Do While Not rs.EOF
response.write \"<tr>\"
response.write \"<td width=\'50%\' bgcolor=#c5c5c5>\"& rs(\"by\") & \", &nbsp;\" & rs(\"adr\") &\"&nbsp;\"%><a href=\"lejlighedsinfo.asp?funktion=lejligheder&id=<%=RS(\"id\")%>\">Rediger her</a>
<% response.write \"</td>\"
response.write \"</tr>\"
rs.MoveNext
If Not (rs.BOF Or rs.EOF) Then
response.write \"<tr>\"
response.write \"<td width=\'50%\' bgcolor=#aaaaaa>\"& rs(\"by\") & \", &nbsp;\" & rs(\"adr\") &\"&nbsp;\"%><a href=\"lejlighedsinfo.asp?funktion=lejligheder&id=<%=RS(\"id\")%>\">Rediger her</a>
<% response.write \"</td>\"
response.write \"</tr>\"
rs.MoveNext
else
end if
Loop
end if
response.write \"</table>\"
%>
<%




%>



<%
If request(\"funktion\") = \"lejligheder\" then


set Conn = Server.createobject(\"adodb.connection\")
conn.Open \"DBQ=\"& Server.MapPath(\"..\") &\"../../../db/lejligheder.mdb; DefaultDir=DBQ=\"& Server.MapPath(\"/\") &\";Driver={Microsoft Access Driver (*.mdb)};\"
SQL = \"SELECT * FROM lej where id =\" & Request.QueryString(\"id\") 
Set RS = conn.Execute(SQL)


%>

<FORM ACTION=\"lejlighedsinfo.asp?funktion=opdater&id=<%=RS(\"id\")%>\" METHOD=\"POST\" onsubmit=\"return validate(this)\">
<font face=\"Verdana\" size=\"2\">


<TABLE WIDTH=\"30%\" BORDER=\"0\" CELLSPACING=\"0\" CELLPADDING=\"3\" CLASS=\"css\">
<TR>
    <TD width=\"100%\"><font face=\"Verdana\" size=\"2\">
    <input type=\"hidden\" name=\"id\" value=\"<%=RS(\"id\")%>\" size=\"20\">By: </font> </TD>
    <TD width=\"100%\"><%=RS(\"by\")%><font face=\"Verdana\" size=\"2\"></TD>
</TR>
<TR>
    <TD width=\"100%\"><font face=\"Verdana\" size=\"2\">Adresse: </font> </TD>
    <TD width=\"100%\"><font face=\"Verdana\" size=\"2\"><%=RS(\"adr\")%></font></TD>
        <TD width=\"100%\"><font face=\"Verdana\" size=\"2\">Ledig: </font> </TD>
    <TD width=\"100%\">
    <font face=\"Verdana\">
    <INPUT TYPE=\"text\" VALUE=\"<%=RS(\"ledig\")%>\" NAME=\"ledig\"  CLASS=\"css\" size=\"20\"></font></TD>
</TR>
</TABLE>
<TR>
Id på lejligheden <%=RS(\"id\")%>

    <TD width=\"100%\"><DIV ALIGN=\"center\"></DIV></TD>
    <TD width=\"100%\"><DIV ALIGN=\"center\"><font face=\"Verdana\"><INPUT TYPE=\"submit\" VALUE=\"Gem\" CLASS=\"css\"><font size=\"2\">
      </font> <INPUT TYPE=\"reset\" VALUE=\"Nulstil\" CLASS=\"css\"></font></DIV></TD>
</TR>
</FORM>

<%
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>

<%
if request(\"funktion\") = \"opdater\" then


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


Const adOpenKeyset = 1
Const adLockOptimistic = 3

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    SQL = \"SELECT * FROM lej\"
    rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic

      rs(\"ledig\") = Request.form(\"ledig\")
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
Response.write\"opdateret\"
End if
End if
%>

<a href=\"admbruger.asp\">tilbage</a>

</font>
<div align=\"center\">
  <center>
  <p>&nbsp;</p>
  </center>
</div>
<p>&nbsp;</p>
</body>

</html>


Det ville måske være en ide at copy/paste det ind i Dreamweaver eller hvad du nu bruger og lave det der fra...  :-) Ellers ser det sku lidt uoverskueligt ud..