if komando

jeg har en if kommando der finder ud af hvad man vil på siden men serveren opfører sig som om jeg har lukket den hvilket jeg ikke har (er jeg næsten sikker på) hvad er der galt med dette?

<%
Mode = Request("mode")
%>
<HTML>
<HEAD>
<TITLE></TITLE>
<LINK HREF="../style/style.css" REL="stylesheet" type="text/css">
</HEAD>
<BODY>
<% If MODE = "create" Then %>

<FORM ACTION="references.asp?mode=savefiles" METHOD="post" ENCTYPE="multipart/form-data">
Headline:<BR><INPUT TYPE="text" Name="headline"><BR>
Description:<BR><textarea cols="39" rows="13" name="description"></textarea><BR>
Picture nr1:<BR><INPUT TYPE="file" NAME="file1"><BR>
Picture nr2:<BR><INPUT TYPE="file" NAME="file2"><BR>
Picture nr3:<BR><INPUT TYPE="file" NAME="file3"><BR>
Picture nr4:<BR><INPUT TYPE="file" NAME="file4"><BR><BR>
<INPUT TYPE="submit" VALUE="create reference">
</FORM>
<BR>
<A HREF="references.asp">Back</A><BR>
<A HREF="mainsite.asp">Back to mainsite</A>

<%
ElseIf mode = "savefiles" Then
%>

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

set upload = Server.CreateObject("ASPSimpleUpload.Upload")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Reference"
rs.Open sql, conn, 1, 3
rs.AddNew
rs("headline") = replace(upload.form("headline"),"'","''")
rs("description") = replace(server.HTMLEncode(upload.form("description")),"'","''")

if Upload.form("file1") <> "" then
  file1name = upload.ExtractFileName(Upload.form("file1"))
  upload.SaveToWeb "File1", "refpics/" & File1Name
  file1name = "refpics/" & file1name
  rs("file1") = file1name
End If

if Upload.form("file2") <> "" then
  file2name = upload.ExtractFileName(Upload.form("file2"))
  upload.SaveToWeb "File2", "refpics/" & File2Name
  file2name = "refpics/" & file2name
  rs("file2") = file2name
End If

if Upload.form("file3") <> "" then
  file3name = upload.ExtractFileName(Upload.form("file3"))
  upload.SaveToWeb "File3", "refpics/" & File3Name
  file3name = "refpics/" & file3name
  rs("file3") = file3name
End If

if Upload.form("file4") <> "" then
  file4name = upload.ExtractFileName(Upload.form("file4"))
  upload.SaveToWeb "File4", "refpics/" & File4Name
  file4name = "refpics/" & file4name
  rs("file4") = file4name
End If
 
rs.Update

sql2 = "SELECT * FROM reference ORDER BY refid DESC"
Set rs2 = Conn.Execute(sql2)
%>

the following informaions is written in the database:<BR>
Pictures should be saved in a directory named refpics.<BR><BR>
<B>Description:</B><BR>
<% = rs2("description") %><BR><BR>

<% If rs2("file1") <> "" Then %>
<B>FILE 1 :</B><BR>
<IMG SRC="<% = rs2("file1") %>"><BR>
<% End If %>

<% If rs2("file2") <> "" Then %>
<B>FILE 2 :</B><BR>
<IMG SRC="<% = rs2("file2") %>"><BR>
<% End If %>

<% If rs2("file3") <> "" Then %>
<B>FILE 3 :</B><BR>
<IMG SRC="<% = rs2("file3") %>"><BR>
<% End If %>

<% If rs2("file4") <> "" Then %>
<B>FILE 4 :</B><BR>
<IMG SRC="<% = rs2("file4") %>"><BR>
<% End If %>

<BR><BR>
<FONT COLOR="green">the new reference have been added to your web site.</FONT>
<BR><BR>
<A HREF="references.asp">Back</A><BR>
<A HREF="mainsite.asp">Back to mainsite</A>

<%
'---- Mode show----
ElseIf mode = "show" then

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../db.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

sql = "SELECT * FROM reference WHERE refId = " & Request.Querystring("refid")
Set rs =  Con.Execute(Sql)
%>

<table width="550" border="0" cellspacing="0" cellpadding="3">
  <tr>
    <td colspan="2" CLASS="headline" Align="center"><% = rs("headline") %></td>
  </tr>
  <tr>
    <td <% If rs("file1") <> "" and rs("file2") <> "" and rs("file3") <> "" and rs("file4") <> "" then response.write "rowspan=4"%><% elseIf rs("file1") <> "" and rs("file2") <> "" and rs("file3") <> "" then response.write"rowspan=3"%><% ElseIf rs("file1") <> "" and rs("file2") <> "" then response.write "rowspan=2"%><% End if %> CLASS="description"><% = rs("description") %></td>
  <% if rs("file1") <> "" Then %>
    <td CLASS="rightbottom" Align="center" WIDTH="150"><A HREF="<% = rs("file1") %>" TARGET="new"><IMG SRC="<% =  rs("file1") %>" BORDER=0 WIDTH=150 HEIGHT=80></A></td>
  <% End If %>
  </tr>
  <% If rs("file2") <> "" Then %>
  <tr>
    <td CLASS="rightbottom" Align="center" WIDTH="150"><A HREF="<% = rs("file2") %>" TARGET="new"><IMG SRC="<% =  rs("file2") %>" BORDER=0 WIDTH=150 HEIGHT=80></A></td>
  </tr>
  <% End If %>
  <% If rs("file3") <> "" Then %>
  <tr>
    <td CLASS="rightbottom" Align="center" WIDTH="150"><A HREF="<% = rs("file3") %>" TARGET="new"><IMG SRC="<% =  rs("file3") %>" BORDER=0 WIDTH=150 HEIGHT=80></A></td>
  </tr>
  <% End If %>
  <% If rs("file4") <> "" Then %>
  <tr>
    <td CLASS="rightbottom" Align="center" WIDTH="150"><A HREF="<% = rs("file4") %>" TARGET="new"><IMG SRC="<% =  rs("file4") %>" BORDER=0 WIDTH=150 HEIGHT=80></A></td>
  </tr>
<% End If %>
</table>

<A HREF="references.asp">Back</A><BR>
<A HREF="mainsite.asp">Back to mainsite</A>


</BODY>
</HTML>
håber i kan hjælpe mig!!!!!!