---
title: "Upload"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13306-upload"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "dahlgren"
published: "2001-12-20T21:17:00.000Z"
updated: "2001-12-21T10:13:00.000Z"
replies: 7
views: 141
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/13306-upload"
---

# Upload

## #1 — dahlgren, 2001-12-20T21:17Z

```
<%response.buffer=true
Namn = Request.form("FILE2")
fil = Right(Namn,3)	
Filnamn = Namn 	
Set Upload = Server.CreateObject("Persits.Upload.1")	
Upload.Save "e:\tanakawebb.com\dweb\intern\docs")
Set File = Upload.Files(1)	
Set Connection = Server.CreateObject "ADODB.Connection")Connection.Open "driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("/dweb/db/database.mdb")SQLStmt = "Insert into docs "	
SQLStmt = SQLStmt & " (namn, beskrivning, kategori) "	
SQLStmt = SQLStmt & " Values('" & upload.Form("FILE2") & "', '" & upload.Form("DESCRIPTION") & "', '" & upload.Form("CATEGORY") & "')"
Connection.Execute(SQLStmt)	
SET SQLStmt = Nothing	
SQLStmt = "Select Max(Id) as senasteid from docs"	
SET RS = Connection.Execute(SQLStmt)senasteid = RS("senasteid")
RS.Close	
SET SQLStmt = Nothing	
SQLStmt = SQLStmt & " 
SET namn = '" & Filnamn & "'"	
SQLStmt = SQLStmt & " Where Id = " & senasteid
Connection.Execute(SQLStmt)
SET SQLStmt = Nothing	
Connection.Close	
Set Upload = Nothing
response.redirect "default.asp"	%>
```

Jag får detta felmedelande
Persits.Upload.1 error '800a0001' 

Request.BinaryRead failed. 

/dweb/intern/dokument/upload.asp, line 6 

Någon som ser vad som kan vara fel?

Permalänk: https://www.webforum.nu/p/13306

## #2 — LarsG, 2001-12-20T21:24Z

Du kan inte använda något i request.form om du skall göra upload senare. 

```
Set Upload = Server.CreateObject("Persits.Upload.1") 
Namn = Upload.form("FILE2")
fil = Right(Namn,3) 
Filnamn = Namn
```

Permalänk: https://www.webforum.nu/p/301350

## #3 — dahlgren, 2001-12-20T21:28Z

Då kommer ett nytt felmedelande där det står
Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/dweb/intern/dokument/upload.asp, line 6 

Upload.Save "e:\\tanakawebb.com\\dweb\\intern\\docs")
\------------------------------------------------^

Hur löser jag det?

Permalänk: https://www.webforum.nu/p/301351

## #4 — jboy_87, 2001-12-20T21:30Z

prova så här kanske:

e:\\tanakawebb.com\\dweb\\intern\\docs**\\**

Permalänk: https://www.webforum.nu/p/301352

## #5 — LarsG, 2001-12-20T21:32Z

Du har en parentes för mycket

Upload.Save "e:\\tanakawebb.com\\dweb\\intern\\docs"**)**

Permalänk: https://www.webforum.nu/p/301353

## #6 — dahlgren, 2001-12-20T21:32Z

Ganska många fel i koden nu hittade jag ett till som jag inte lyckas lösa.
Microsoft VBScript compilation error '800a03ea' 

Syntax error 

/dweb/intern/dokument/upload.asp, line 21 

SET namn = '" & Filnamn & "'"
\-----------^

\[Redigerat av dahlgren den 20 dec 2001\]

\[Redigerat av dahlgren den 21 dec 2001\]

Permalänk: https://www.webforum.nu/p/301354

## #7 — OveRRidE, 2001-12-21T09:53Z

Lägg detta på raden ovanför felet. Då ser du hur hela SQLsatsen ser ut och kan därmed även rätta till den.

```
response.write SQLStmt
response.end
```

Jag tror du har en dubbelfnutt för mycket.

```
SET namn = '" & Filnamn & "'
```

Permalänk: https://www.webforum.nu/p/301355

## #8 — LarsG, 2001-12-21T10:13Z

Det ser ut som om du försöker bygga ett update-statement men det saknas en del

```
SET RS = Connection.Execute(SQLStmt)
senasteid = RS("senasteid")
RS.Close 
SQLStmt = "update docs SET namn = '" & Filnamn & "'" 
SQLStmt = SQLStmt & " Where Id = " & senasteid
Connection.Execute(SQLStmt)
Connection.Close
```

Något åt det hållet.

Permalänk: https://www.webforum.nu/p/301356

---

Tråden på webben: https://www.webforum.nu/amne/asp/13306-upload