ASPUpload ? + felmeddelande

Får följande fel:

Feltyp:
Request-objekt, ASP 0207 (0x80004005)
Det går inte att använda samlingen Request.Form efter att BinaryRead har anropats.
/nyamcdz/admin/admin.asp, line 612

Webbläsare:
Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0) 

Sida:
POST 5042 bytes to /nyamcdz/default1.asp

POST Data:
fel '80020009' 
Undantag inträffade. 

/iisHelp/common/500-100.asp, line 193

Koden som jag har i formuläret ser ut så här:

<span class="Underrubrik"> Administration @ <%=var_lank%></span> <br>
      <br>
      <br>
      <form method="POST" enctype="multipart/form-data" action="default1.asp?sida=admin&links=turerupp">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="13%">Datum</td>
            <td width="20%"> 
              <input type="text" name="adat" size="25" maxlength="19" value="<%=date%>">
            </td>
            <td width="7%"> Tid</td>
            <td width="60%"> 
              <input type="text" name="textfield22233" size="25" maxlength="19" value="<%=time%>">
            </td>
          </tr>
          <tr> 
            <td width="13%">Subject</td>
            <td width="20%"> 
              <input type="text" name="subject" size="25" maxlength="19">
            </td>
            <td width="7%"> Bild</td>
            <td width="60%"> 
              <input type="radio" name="fisk" value="ja">
              <img src="fiske/bilder/2.gif" width="13" height="13"> 
              <input type="radio" name="fisk" value="fan">
              <img src="fiske/bilder/3.gif" width="13" height="13"> 
              <input type="radio" name="fisk" value="nej">
              <img src="fiske/bilder/1.gif" width="13" height="13"> 
              <input type="radio" name="foto" value="ja">
              <img src="fiske/bilder/foto.gif" width="14" height="11">
              <input type="radio" name="foto" value="nej">
              <img src="fiske/bilder/fotonej.gif" width="14" height="11"> 
             </tr>
          <tr> 
            <td width="13%" valign="top">Meddelande</td>
            <td colspan="3"> 
              <textarea name="meddelande" cols="63" rows="10"></textarea>
            </td>
          </tr>
          <tr> 
            <td width="13%" valign="top"><i>Meddelande</i></td>
            <td colspan="3"> 
              <textarea name="meddelande2" cols="63" rows="5"></textarea>
            </td>
          </tr>
          <tr> 
            <td width="13%">Bild</td>
            <td colspan="3">
              <input type=FILE size=53 name="FILE1">
            </td>
          </tr>
          <tr> 
            <td width="13%"> </td>
            <td colspan="3"><br>
              <input type=image name="SUBMIT" src="bilder/skickaknapp.gif" border=0>
                 <a href="javascript:document.kontakta.reset();"><img src="bilder/rensaknapp.gif" border="0"></a> 
            </td>
          </tr>
        </table>
        <br>
        <br>
        </form>

Koden som ska skriva in prylarna i databasen samt skicka upp filen till en katalog på webservern (bilden ska inte läggas in i databasen bara namnet på bilden.)

<span class="Underrubrik"> Administration @ <%=var_lank%></span> <br>
        <br>
        <!--#INCLUDE file="../default/conection.inc" -->
        <!--#INCLUDE file="../default/functions.inc" -->
        
        <%
        Set Upload = Server.CreateObject("Persits.Upload.1")
	Count = Upload.Save("C:\Inetpub\wwwroot\nyamcdz\fiske\bildertur")
	For Each File in Upload.Files
        filename = Right(File.Path,Len(File.Path)-InstrRev(File.Path,"\"))
        Next
        
        SQL = "INSERT INTO fisketur"
        SQL = SQL & "(subject ,fisk ,foto ,bild, adat ,meddelande, meddelande2)"
        SQL = SQL & "VALUES ("&_
	"'" & Request.Form("subject") & "', " &_
	"'" & Request.Form("fisk")  & "', " &_
	"'" & Request.Form("foto")  & "', " &_
        "'" & filename()  & "', " &_
	"#" & date()                & "#, " &_
	"'" & Request.Form("meddelande")  & "'"   &_
	"'" & Request.Form("meddelande2") & "'"   &_
	")"
        Databas.Execute SQL

        SQL = "SELECT TOP 1 * FROM fisketur ORDER by id DESC"
        set rs = Databas.Execute(SQL)
        %>

        Följande fisketur har laggts till:
        <table width="100%" border="0" cellspacing="0" cellpadding="0" background="bilder/main.gif">
  <tr> 
    <td width="74%">  <%=rs("subject")%></a></td>
    <td width="18%"align="right"> 
      <div align="right"></div>
      <div align="right"><%=Rs("adat")%></div>
    </td>
    <%
select case cstr(rs("fisk"))
case "1": Bildx = "fiske/bilder/2.gif"
case "3": Bildx = "fiske/bilder/3.gif"
case "2": Bildx = "fiske/bilder/1.gif"
end select
%>
    <td width="4%"align="left">  <img src="<%=Bildx%>"></td>
    <td width="4%"align="left"> 
      <%
select case cstr(rs("foto"))
case "ja" : BildY = "fiske/bilder/foto.gif"
case "nej": BildY = "bilder/main.gif"
end select
%>
      <div align="right"><img src="<%=BildY%>">  </div>
    </td>
  </tr>
</table>

Tacksam för hjälp!

------------------
McD- Burgers for the people!

www.McDz.net www.SweQuake.com

[Redigerat av McD den 06 sep 2001]