7 svar · 128 visningar · startad av dahlgren
<%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