Request.BinaryRead failed.

Får detta fel:

Persits.Upload.1 error '800a0001' 

Request.BinaryRead failed. 

/vforum/index.asp, line 309

Förstår inte riktigt vad som är fel... :( (linje 309 i fet txt)

<%If Request.QueryString("laggtill") = "ja" Then
'*****************
Set Upload = Server.CreateObject("Persits.Upload")
[B]Upload.SaveVirtual("../../dbase/uppladdad")[/B]

Set File = Upload.Files("THEFILE")

	If Not File Is Nothing Then
  Connect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../dbq/vforum.mdb")
  
   Set rs = Server.CreateObject("adodb.recordset")

   rs.Open "aktuellt", Connect, 2, 3

   rs.Addnew
   End If
'******************

Response.Cookies("namn") = Trim(Upload.Form("namn"))
Response.Cookies("email") = Trim(Upload.Form("email"))
Response.Cookies("namn").Expires = date + 7
Response.Cookies("email").Expires = date + 7
Bild = rs("bild")
Bild = File.ExtractFileName
Rubrik      = Upload.Form("Rubrik")
Inlagg      = FixaTecken(Upload.Form("inlagg"))
Namn       = Upload.Form("namn")
Email        = Upload.Form("email")
SvarsId    = Upload.QueryString("id")
FID        = Session("ForId")

If Upload.QueryString("id") = "" Then 

Conn.Execute("Insert Into forum(ForID, Rubrik, Bild, Inlagg, Namn, Email) Values('"& FID &"','"& Rubrik &"','"& Bild &"','"& Inlagg &"','"& Namn &"','"&Email &"')")

Response.Redirect "index.asp"

Else

Conn.Execute("Insert Into forum(ForID, Rubrik, Inlagg, Namn, Email, SvarsId) Values('"& FID &"','"& Rubrik &"','"& Inlagg &"','"& Namn &"','"&Email &"','"& SvarsId &"')")
Conn.Execute("UPDATE forum SET senast=now WHERE id=" & SvarsId)

If SvarsId <> 0 Then
  Conn.Execute("UPDATE forum SET Svar=Svar+1 WHERE id=" & SvarsId)
End If

Response.Redirect "index.asp?visa=las&id=" &Upload.QueryString("id") & "&rubrik=" &Upload.Form("rubrik")

End If

HEJ!

Jag tror du skickar formuläret som vanligt, det ska vara ENCTYPE="MULTIPART/FORM-DATA" när man lägger upp filer.

Fast, jag ser att du har Upload.Form, vilket indikerar att du vet vad du gör? :)

Ja, jag använder ENCTYPE="MULTIPART/FORM-DATA"

..fast det behöver ju inte betyda att jag vet vad jag gör :q

HEJ!

I detta fall har du gjort rätt, men eftersom det inte fungerar är det något annat fel.
Men, det är säkert inte du som gjort det ;)

Är sökvägen till foldern rätt? Testa hårdkoda den.
Komponenten är registrerad, finns etc (fast, det ger inte detta fel)
Testa att flytta upp Rubrik = Upload.Form("Rubrik") och se om du får ut något.

jag har redan körd ett enkelt testscript och det funkar. alltså är det inget fel på server'n eller i sökvägen, men i min kod :(
Nedanstående kod fungerar. Hur modifierar jag för att ta emot en fil också?

<%If Request.QueryString("laggtill") = "ja" Then

Response.Cookies("namn") = Trim(Request.Form("namn"))
Response.Cookies("email") = Trim(Request.Form("email"))
Response.Cookies("namn").Expires = date + 7
Response.Cookies("email").Expires = date + 7
 
Rubrik      = Request.Form("Rubrik")
Inlagg      = FixaTecken(Request.Form("inlagg"))
Namn       = Request.Form("namn")
Email        = Request.Form("email")
SvarsId    = Request.QueryString("id")
FID        = Session("ForId")

If Request.QueryString("id") = "" Then 

Conn.Execute("Insert Into forum(ForID, Rubrik, Inlagg, Namn, Email) Values('"& FID &"','"& Rubrik &"','"& Inlagg &"','"& Namn &"','"&Email &"')")

Response.Redirect "index.asp"

Gör en sökning på binaryread. Detta har diskuterats tidigare.

HEJ!

Nu tror jag jag har hittat beviset på att du inte vet vad du gör ;)

Vad har du på 'rad 1'? Jo, Request.QueryString("laggtill"), det ska ju OCKSÅ vara Upload.Form, som helt riktigt använder längre ned.

Nej, det behövs inte. Request.Querystring kan man använda ändå, så J.N.s bevis håller inte. ;)

Fixat själv :) , men tack för hjälpen!
Såhär funkar det:

Upload.Save "D:\fysisk_sökväg"