Banner System - Hjælp!

Hej Hej

Se lige denne fejl på denne side http://asp.krellers.dk/ban_asp/www/adm_banner.asp

Og her er koden . . . .

<% option explicit %>
<!-- #include file="../secure/string.inc" -->
<html>
<head>
<title>Administrer banner</title>

</head>

<body>
<center>
<table border="0" width="600" cellspacing="0" cellpadding="0">
  <tr>
    <td width="600"><p align="center"><strong><font face="Verdana"><big>BANNERFUNKTION<br>Vedligeholdelse</big></font></strong></p>
    <p align="center"><strong><font face="Verdana"><big><big>&nbsp;</big></big></font></strong></td>
  </tr>
  <tr>


    <td width="600" valign="top" align="left">

<% select case request.querystring("action")

'Her vises et udtræk af de data der er registret i tabellen.
case ""
    dim tsbanner, rsbanner
    set tsbanner=server.createobject("ADODB.Connection")
    tsbanner.open strBanner
set rsbanner=tsbanner.execute("select * from T_banner")%>
<table border="0">
    <tr><td colspan=2"><font face="verdana" size="2"><a href="adm_banner.asp?action=add">Tilføj banner</a>
        </font></td></tr>
    <tr>
            <td width="400"><small><font face="Verdana">Firma</font></small></td>
            <td width="200"><small><font face="Verdana">Funktion</font></small></td>
          </tr>

<%do while rsbanner.eof=false %>

                <tr>
                <td width="400"><small><font face="Verdana"><%=rsbanner("firmanavn")%></font></small></td>
                <td width="200"><font face="Verdana"><small><a href="adm_banner.asp?action=del&id=<%=rsbanner("id")%>">Slet</a> | <a href="adm_banner.asp?action=ret&id=<%=rsbanner("id")%>">Ret</a> | <a href="adm_banner.asp?action=ret_billede&id=<%=rsbanner("id")%>">Ret billede</a>
                </small></font></td>
          </tr>

    <%rsbanner.movenext
    loop%>

  </table>

<%
rsbanner.close
set rsbanner=nothing
tsbanner.close
set tsbanner=nothing


case "del"
dim tssletbanner, rssletbanner, filnavn, delfile, strsql
set tssletbanner = server.createobject("ADODB.Connection")
tssletbanner.open strBanner
set rssletbanner=server.createobject("ADODB.recordset")
rssletbanner.open "select * from T_banner where id=" & request.querystring("id"),tssletbanner,2,3

' slet billede på disk hvis der er et billede...
if rssletbanner("banner")<>"" then

filnavn= ""
filnavn= filnavn & Server.MapPath("images\") & "\"  & rssletbanner("banner")
set delfile=createobject("scripting.filesystemobject")
delfile.deletefile(filnavn)
end if

'slet banner fra database
rssletbanner.delete

'ryd op
rssletbanner.close
set rssletbanner=nothing
tssletbanner.close
set tssletbanner=nothing

'skriv en pæn besked
response.write "<font face='verdana' size='2'>Bannerannoncen blev slettet.<br><br><a href='adm_banner.asp'>Opret/vedligehold banner</a></font>"


'Tilføj en bannerannonce.
case "add"

response.write "<font face='verdana' size='2'><b>" & request.querystring("fejl") & "</b></font>"
%>

<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="asp_upload_banner.asp">
    <table border="0">
    <tr>
                <td width="600" colspan="2"><font face="verdana" size="2"><a href="adm_banner.asp">Administrer bannere</a><br>&nbsp;</td>
          </tr>
    <tr>
            <td width="111"><font face="Verdana"><small>Firmanavn:<br><small><u>Skal udfyldes!</u></small></small></font></td>
            <td width="489"><font face="Verdana"><small><input type="text" size="50" name="firmanavn" value="<%=session("firmanavn")%>">
              </small></font></td>
          </tr>
                <tr>
                <td width="111"><font face="Verdana"><small>Info:<br><small><u>Skal udfyldes!</u></small></small></font></td>
                <td width="489"><font face="Verdana"><small><input type="text" size="50" name="info" value="<%=session("info")%>">
                </small></font></td>
          </tr>

                <tr>
                <td width="111"><small><font face="Verdana">Link (uden http://):</font></small></td>
                <td width="489"><font face="Verdana"><small><input type="text" size="50" name="link" value="<%=session("link")%>">
                </small></font></td>
          </tr>
<tr>
                <td width="111"><small><font face="Verdana">Max visninger:<br><small><u>Skal udfyldes!</u></small></font></small></td>
                <td width="489"><font face="Verdana"><small><input type="text" size="50" name="koebvisninger" value="<%=session("koebvisninger")%>">
                </small></font></td>
          </tr>



<tr>
<td width="111"><small><font face="Verdana">Fil:</font></td>
<td width="489"><font face="Verdana"><small>
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"></font></td></td>
<tr><td width="600" colspan="2">

<INPUT TYPE=SUBMIT VALUE="Send"></td></tr>
</table>

</FORM>

<%

case "ret"
dim tsretbanner, rsretbanner
    set tsretbanner=server.createobject("ADODB.Connection")
    tsretbanner.open strBanner
set rsretbanner=tsretbanner.execute("select * from T_banner where id=" & request.querystring("id")) %>
<form action="adm_banner.asp?action=opdater&id=<%=request.querystring("id")%>" method="post">
    <table border="0">
    <tr>
                    <td width="600" colspan="2"><font face="verdana" size="2"><a href="adm_banner.asp">Administrer bannere</a><br>&nbsp;</td>
          </tr>
    <tr>
            <td width="111"><font face="Verdana"><small>Firmanavn:</small></font></td>
            <td width="489"><font face="Verdana"><small><input type="text" size="50" name="firmanavn" value="<%=rsretbanner("firmanavn")%>">
              </small></font></td>
          </tr>
                <tr>
                <td width="111"><font face="Verdana"><small>Info (alt-tekst):</small></font></td>
                <td width="489"><font face="Verdana"><small><input type="text" size="50" name="info" value="<%=rsretbanner("info")%>">
                </small></font></td>
          </tr>
                <tr>
                            <td width="111"><font face="Verdana"><small>Link:</small></font></td>
                            <td width="489"><font face="Verdana"><small><input type="text" size="50" name="link" value="<%=rsretbanner("link")%>">
                            </small></font></td>
          </tr>

<tr>
                            <td width="111"><font face="Verdana"><small>Antal visninger:<br><small><u>Skal være >=0</u></small></small></font></td>
                            <td width="489"><font face="Verdana"><small><input type="text" size="5" name="antalvisninger" value="<%=rsretbanner("antal_visninger")%>">
                            </small></font></td>
          </tr>
            <tr>
                                      <td width="111"><font face="Verdana"><small>Max visninger:<br><small><u>Skal være >=0</u></small></small></font></td>
                                      <td width="489"><font face="Verdana"><small><input type="text" size="5" name="koebvisninger" value="<%=rsretbanner("max_visninger")%>">
                                      </small></font></td>
          </tr>

    <tr>

      <td width="600" colspan="2"><small><font face="Verdana"><input type="submit"
      value="Ret bannerannonce"><br><br><a href="adm_banner.asp?action=ret_billede&id=<%=request.querystring("id")%>">Ret billede</a></font></small></td>
    </tr>
  </table>
</form>
<%


rsretbanner.close
set rsretbanner=nothing
tsretbanner.close
set tsretbanner=nothing

case "opdater"

if request.form("antalvisninger")="" or request.form("koebvisninger")="" then

response.write "<font face='verdana' size='2'>Der er angivet forkert input i feltet 'Antal visninger' eller feltet 'max visninger'.</font>"

else

dim tsopdbanner, rsopdbanner

set tsopdbanner = server.createobject("ADODB.Connection")
tsopdbanner.open strBanner
strsql="UPDATE T_banner set firmanavn='"&request.form("firmanavn")&"',info='"&request.form("info")&"',link='"&request.form("link")&"',antal_visninger='"&request.form("antalvisninger")&"',max_visninger='"&request.form("koebvisninger")&"' where id="& request.querystring("id")

tsopdbanner.execute(strsql)

tsopdbanner.close
set tsopdbanner=nothing

If err.number=0 then
response.write "<font face='verdana' size='2'>Annoncen blev rettet.<br><br><a href='menu.asp'>Menu</a>  <a href='adm_banner.asp'>Opret/vedligehold bannerannoncer</a></font>"
end if
end if
case "ret_billede"%>

<font face="verdana" size="2">Ved at klikke på knappen "Gennemse", kan du udvælge den fil, du vil bruge som bannerbillede.<br>
<br>
Der er følgende krav til billedert:<br>
<ul>
<li>Filnavnet må maksimalt være på 20 tegn</li>
<li>Filstørrelsen må maksimalt være 40 kbyte.</li>
<li>Højden må maksimalt være 60 pixels.</li>
<li>Bredden må maksimalt være 468 pixels.</li>
</ul>
Når du har udvalgt din fil, skal du klikke på knappen "Send", hvorefter du får besked, om filen er blevet gemt.
</font>
<FORM name="fil" METHOD="POST" ENCTYPE="multipart/form-data" ACTION="asp_upload_banner.asp?action=ret&id=<%=request.querystring("id")%>">
<INPUT TYPE=FILE SIZE=60 NAME="FILE1"><BR>

<INPUT TYPE=SUBMIT VALUE="Send">
</FORM>


<%end select %>



    </td>
  </tr>
</table>
</center>
</body>
</html>