Avatar billede pfp Nybegynder
22. februar 2003 - 12:15 Der er 8 kommentarer og
1 løsning

Filnavn og ASPUpload

Hej,

Når jeg uploader et billede og samtidig gemmer filnavnet i en database sammen med nogle andre form felter vil jeg gerne kontrollere at der til denne post overhovedet er valgt et billede. Hvis ikke der er det skal feltet der indeolder billedestien blot efterlades blankt i databasen.

Jeg har forsøgt sådan her:
<%
If Upload.Form("Billede") = "" then
filnavn = ""
    else   
filnavn = Session.SessionID & "-" & Date() & "-" & Hour(Now) & "-" & Second(now)
End if
%>

Men også selvom jeg har valgt et billede og dermed ønsker at filnavnet bliver i listen i min db så bliver filnavnet altid ".extension" (altså f.eks. .jpg)

Hvad kan jeg gøre?

/pfp
Avatar billede eagleeye Praktikant
22. februar 2003 - 12:19 #1
Prøv at bruge files i stedet for form:

If Upload.Files("Billede") = "" then
Avatar billede pfp Nybegynder
22. februar 2003 - 12:24 #2
Object doesn't support this property or method: 'Upload.Files'

Jeg har også forsøgt med Upload.File
Avatar billede pfp Nybegynder
22. februar 2003 - 12:25 #3
Du får lige den komplette kode:

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

If Upload.File("Billede") = "" then
filnavn = ""
    else   
filnavn = Session.SessionID & "-" & Date() & "-" & Hour(Now) & "-" & Second(now)
End if
 
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 = "INSERT INTO Produkter (Produktnavn, Beskrivelse, Varenr, Pris, Kategori, Produktfoto)"
SQL = SQL & " VALUES ("
SQL = SQL & "'" & Upload.Form("Produktnavn") & "', "
SQL = SQL & "'" & Upload.Form("Beskrivelse") & "', "
SQL = SQL & "'" & Upload.Form("Varenr") & "', "
SQL = SQL & Upload.Form("Pris") & ", "
SQL = SQL & Upload.Form("Kategori") & ", "
SQL = SQL & "'" & filnavn & "." & extension & "' "
SQL = SQL & ")"
Conn.Execute(SQL)
Response.Redirect("../Meddelser.asp?info=01")
%>
Avatar billede eagleeye Praktikant
22. februar 2003 - 12:27 #4
Hvis hvis man tilføjer .FileName:


if upload.Files("Billede").FileName = "" then
Avatar billede eagleeye Praktikant
22. februar 2003 - 12:32 #5
Arh det nok når den er tom så er .files ikke et object så prvø med:


if (Upload.Files("Billede") is nothing) then
Avatar billede pfp Nybegynder
22. februar 2003 - 12:33 #6
Hvis man vælger et billede nu og forsøger at uploade det så virker det efter hensigten. Men hvis man efter FILE formen blank så siger den:
Object required: 'Upload.Files(...)'
Avatar billede pfp Nybegynder
22. februar 2003 - 12:34 #7
okay så ikke lige din sidste post, forsøger lige med din 12:32:36
Avatar billede eagleeye Praktikant
22. februar 2003 - 12:35 #8
Jeg tror det fordi hvis man ikke vælger en fil at er Upload.Files ikke lavet som et object man kan tilgå. Det object bliver kun oprettet hvis der er valgt en fil.
Avatar billede pfp Nybegynder
22. februar 2003 - 12:37 #9
Jeps det var det der skulle til. Tusind tak for hjælpen endnu engang.

/peter
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