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?
8 svar · 396 visningar · startad av timedia
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
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.