AspUpload igen...

timediaMedlem sedan maj 2001420 inlägg

Frågan7 mars 2002 10:16#1

Har problem med AspUpload. Följande kod ger felet:

Feltyp:
Request-objekt, ASP 0208 (0x80004005)
Det går inte att använda den allmänna Request-samlingen efter att BinaryRead har anropats.
/komforb/html/admin/redfst2.asp, line 25

Här är sidan som ger fel:

<!-- #include file="protect.inc" -->
<html>
<!-- #include file="adovbs.inc" -->
<body bgcolor="#FFCC66">
<%

	Set Upload = Server.CreateObject("Persits.Upload.1")

	Upload.Save
	Set File = Upload.Files(1)

	rubrik = upload.Form("rubrik")
	forstas = upload.Form("forstas")
	brodtext = upload.Form("brodtext ")
	kurs = upload.Form("kurs")
	kursdate = upload.Form("kursdate")

	If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
	Response.Write "Filen måste vara av typen JPEG eller GIF"
	else

	Set Connection = Server.CreateObject("ADODB.Connection")
	Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../sys/komforb.mdb") 

	SQLStmt = "UPDATE into aktuellt WHERE ID = " & request("Id")
	SQLStmt = SQLStmt  & " (rubrik, forstas, brodtext, kurs, kursdate)"
	SQLStmt = SQLStmt  & " Values('" & rubrik & "', '" & forstas & "', '" & brodtext & "', '" & kurs & "', '" & kursdate & "')"
	Connection.Execute(SQLStmt)
	SET SQLStmt = Nothing

	SQLStmt = "Select  Id as senasteid from aktuellt"
	SET RS = Connection.Execute(SQLStmt)
	senasteid = RS("id")
	RS.Close
	SET SQLStmt = Nothing

	If file.ImageType = "GIF" Then
	Extension = "gif"
	elseif file.ImageType = "JPG" Then
	Extension = "jpg"
	End If

	filnamn = "bild" & id & "." & Extension

	For Each File in Upload.Files
	File.Copy 	"/images/bild" & id & "." &  Extension
	File.Delete 
	Next

	SQLStmt = "Update aktuellt "
	SQLStmt = SQLStmt  & " SET Bild = '" & Filnamn & "'"
	SQLStmt = SQLStmt  & " Where Id = " & id
	Connection.Execute(SQLStmt)
	SET SQLStmt = Nothing

	Connection.Close
End If 

%>

   Sådär! Nu är databasen uppdaterad. Kontrollera för att se att uppgifterna du nyss fyllt i 
   verkligen har uppdaterats.

   <p>
   <a href="default.asp">Logga Ut!</a></p>

</html>

Någon vänlig själ som kan hjälpa?

solbulleMedlem sedan mars 20015 287 inlägg

7 mars 2002 10:54#2

Det är väl request("Id") som ger felmeddelandet. Om jag inte missminner mig kan du inte använda, precis som felmesset säger, detta när du kör uploadköret.

Alt. 1 kanske går att ge en variabel det värdet innan du kör:
Set Upload = Server.CreateObject("Persits.Upload.1")

Alt. 2 (Nog att föredra) Få tag i Id med hjälp av:
Id = upload.Form("Id")

Om det är möjligt, (sätt i ett hiddenfält kanske?)