Upload

7 svar · 141 visningar · startad av dahlgren 20 dec. 2001

dahlgrenMedlem sedan aug. 20011 946 inlägg

Trådstart20 dec. 2001 21:17#1

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

LarsGMedlem sedan dec. 200012 464 inlägg

20 dec. 2001 21:24#2

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

dahlgrenMedlem sedan aug. 20011 946 inlägg

20 dec. 2001 21:28#3

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?

jboy_87Medlem sedan aug. 20011 099 inlägg

20 dec. 2001 21:30#4

prova så här kanske:

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

LarsGMedlem sedan dec. 200012 464 inlägg

20 dec. 2001 21:32#5

Du har en parentes för mycket

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

dahlgrenMedlem sedan aug. 20011 946 inlägg

20 dec. 2001 21:32#6

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]

OveRRidEMedlem sedan feb. 200112 078 inlägg

21 dec. 2001 09:53#7

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

LarsGMedlem sedan dec. 200012 464 inlägg

21 dec. 2001 10:13#8

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.