Avatar billede pfp Nybegynder
10. juni 2003 - 20:05 Der er 5 kommentarer og
1 løsning

Persist Upload problemer

Hej,

Er der nogen der kan se hvad der skulle være galt i følgende kode:

Set Upload = Server.CreateObject("Persits.Upload.1")
   
    Upload.OverWritefiles = True
    Upload.SetMaxSize 100000, True
    Count = Upload.Savevirtual("../../../Grafik/Produkter/")

filnavn = Session.SessionID & "-" & Date() & "-" & Hour(Now) & "-" & Second(now)
 
set fso = CreateObject("Scripting.FileSystemObject")

    For Each File in Upload.Files
    set f = fso.getfile(File.Path)
    extension = fso.Getextensionname(File.Path)
if fso.fileexists(f.parentfolder & "\" & filnavn & "." & extension) then
  fso.deletefile(f.parentfolder & "\" & filnavn & "." & extension)
end if
f.name = filnavn & "." & extension
    Next

Jeg får "unspecified error" i linien:
    Count = Upload.Savevirtual("../../../Grafik/Produkter/")

Hva' kan det være...?

/pfp
Avatar billede martinhh Nybegynder
10. juni 2003 - 20:32 #1
Er du sikker på det bibliotek findes??
Avatar billede pfp Nybegynder
10. juni 2003 - 20:34 #2
ja
Avatar billede eagleeye Praktikant
10. juni 2003 - 20:40 #3
Hvis grafik ligger i www root så prøv med, eller hvor ligger folderen grafik?

Count = Upload.Savevirtual("/Grafik/Produkter/")
Avatar billede martinhh Nybegynder
10. juni 2003 - 20:45 #4
Må vi se den fuldstændige sti til /Grafik/Produkter/ ???

Og i øvrigt, hvilken sti har ovenstående fil??
Avatar billede pfp Nybegynder
10. juni 2003 - 22:40 #5
nu har jeg fundet ud af problemet...

Hele min kode ser sådan ud:
varID = Request.Form("ProduktID")
''##### BILLEDE NR. 1 #####

Set Upload = Server.CreateObject("Persits.Upload.1")
   
    Upload.OverWritefiles = True
    Upload.SetMaxSize 100000, True
    Count = Upload.SaveVirtual("../../../Grafik/Produkter/")

filnavn = Session.SessionID & "-" & Date() & "-" & Hour(Now) & "-" & Second(now)
 
set fso = CreateObject("Scripting.FileSystemObject")

    For Each File in Upload.Files
    set f = fso.getfile(File.Path)
    extension = fso.Getextensionname(File.Path)
if fso.fileexists(f.parentfolder & "\" & filnavn & "." & extension) then
  fso.deletefile(f.parentfolder & "\" & filnavn & "." & extension)
end if
f.name = filnavn & "." & extension
    Next


SQL = "UPDATE Produkter SET "
SQL = SQL & "Billede = '" & filnavn & "." & extension & "' "
SQL = SQL & "WHERE ProduktID = " & varID
Response.Write SQL
'Conn.Execute(SQL)
'Response.Redirect("../Meddelser.asp?info=01")


Som i kan se vil jeg tilføje filnavnet til min database også, og det er fordi jeg ikke må bruge Request.Form når der åbnes for upload komponenten. Så hvis jeg fjerner det kan jeg godt uploade nu, men hvis jeg fjerner det kan jeg jo ikke fortælle min sql hvor filnavnet skal gemmes....

nogen ideer?
Avatar billede pfp Nybegynder
11. juni 2003 - 13:19 #6
Aaah jeg kan hente den med Upload.Form("ProduktID")
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester