Upload

<%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?

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

[Redigerat av dahlgren den 20 dec 2001]

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

------------------
essentitia preter non sans multiplicandum

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?

------------------
/Dahlgren

"Det finns saker som man måste vara fackman för att inte förstå"

prova så här kanske:

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

------------------
ASP är bäst fuck the rest!!!

Du har en parentes för mycket

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

------------------
essentitia preter non sans multiplicandum

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]

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 & "'

------------------
Jag är skum

[Redigerat av OveRRidE den 21 dec 2001]

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.

------------------
essentitia preter non sans multiplicandum