webForumDet fria alternativet

problem med upload

5 svar · 218 visningar · startad av dahlgren

dahlgrenMedlem sedan aug. 20011 946 inlägg
#1

Hur får jag detta att funka jag får föjande felmedelande:
Request object error 'ASP 0207 : 80004005'

Cannot use Request.Form

/dweb/intern/dokument/Upload.asp, line 22

Cannot use Request.Form collection after calling BinaryRead.

<%Set Upload = Server.CreateObject("Persits.Upload.1")Upload.Save("e:\docs")Set File = Upload.Files(1)FILE2=Request.Form("FILE2")DESCRIPTION=Request.Form("DESCRIPTION")CATEGORY=Request.Form("CATEGORY")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('" & FILE2 & "', " & DESCRIPTION & ", '" & CATEGORY & "')"Connection.Execute(SQLStmt)SET SQLStmt = NothingSQLStmt = "Select Max(Id) as senasteid from fotogalleri"SET RS = Connection.Execute(SQLStmt)senasteid = RS("senasteid")RS.CloseSET SQLStmt = NothingIf file.ImageType = "DOC" ThenExtension = "doc"End Iffilnamn = "dokument" & senasteid & "." & ExtensionFor Each File in Upload.FilesFile.Copy "e:\docs" & senasteid & "." & ExtensionFile.Delete NextSQLStmt = "Update docs "SQLStmt = SQLStmt & " SET namn = '" & Filnamn & "'"SQLStmt = SQLStmt & " Where Id = " & senasteidConnection.Execute(SQLStmt)SET SQLStmt = NothingConnection.Close%>

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

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

LarsGMedlem sedan dec. 200012 464 inlägg
#2

Du får använda den form som skapas av uploadkomponenten, upload.form istället för request.form

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

dahlgrenMedlem sedan aug. 20011 946 inlägg
#3

då fick jag genaast ett nytt felmedelande.
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Lilla Julafton 01'.

/dweb/intern/dokument/Upload.asp, line 41

SQLStmt = "Insert into docs "
SQLStmt = SQLStmt &  " (namn, beskrivning, kategori) "
SQLStmt = SQLStmt &  " Values('" & upload.Form("FILE2") & "', " & upload.Form("DESCRIPTION") & ", '" & upload.Form("CATEGORY") & "')"
[b]Connection.Execute(SQLStmt)[/b]
SET SQLStmt = Nothing

Rad 41 är i fetstil är det nån som har något förslag.

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

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

@ndersMedlem sedan juni 200032 969 inlägg
#4

Är inte beskrivning av typen text/pm?

SQLStmt = "Insert into docs "
SQLStmt = SQLStmt & " (namn, beskrivning, kategori) "
SQLStmt = SQLStmt & " Values('" & upload.Form("FILE2") & "', '" & upload.Form("DESCRIPTION") & "', '" & upload.Form("CATEGORY") & "')"

Apostrofer runt i så fall.

Mvh,

------------------
har du sett Bires lilla häst?

dahlgrenMedlem sedan aug. 20011 946 inlägg
#5

Menar du så här?

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

DEt ger i alla fall samma felmedelande.

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

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

@ndersMedlem sedan juni 200032 969 inlägg
#6

Nej, jag menar som den SQL-frågan jag postade. :)

Apostrofer runt värdet, inte fältnamnet.

Mvh,

------------------
har du sett Bires lilla häst?

131 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
128 ms — hämta tråd, inlägg och bilagor (db)