ASPsmartupload problem

Øøh, Jeg skal lige være sikker.
1. Bruger skal ikke kunne submitte et tomt felt.
2. Du skal have unikke filnavne således at "gamle" filer ikke overskrives.

1. Er nok nemmest med noget validering med javascript på klienten.
2. Sørg for at alle filer får et unikt navn som ikke eksisterer i DB.
F.eks.:
strFilnavn = file1.filename
rFilNavn = now()
rFilNavn = Replace(rFilNavn,":", "")
rFilNavn = Replace(rFilNavn,"\", "")
rFilNavn = Replace(rFilNavn,"/", "")
rFilNavn = Replace(rFilNavn,"-", "")
rFilNavn = Replace(rFilNavn," ", "")
strNytFilnavn = rFilNavn & "_" & strFilnavn
file1.saveas = "c:/stien/til/din/mappe/" & strNytFilnavn

ahhh, rigtig smart med løsning 2. Den vil jeg anvende. Men løsning 1 ... er det slet ikke muligt uden java, eller er aspsmartupload så svær at danse med ?

File1 bliver en streng når du skriver sådan her, og ikke et file objekt:

File1 = objUpload.Files.Item("File1").FileName


Så prøve at rette din if sætning så den tjekke om strengen File1 er tom:

If len("" & trim(File1)) > 0 Then

Super eagleeye. Works perfect!!!

Dejlig simpelt i øvrigt.

Skal jeg så lave et svar? ;-)

Jo, det må du meget gerne. Men jeg har oplevet nogle problemer nu, da jeg ikke fik testet rigtig tidligere. Det virker fint med at den ikke fjerner filnavn fra databasen, men jeg kan ikke uploade oveni et eksisterende filnavn. Dvs. hvis der findes et filnavn i forvejen, kan jeg ikke lave dette om. Kan du hjælpe mig med at rette det. Det er jo sandsynligvis nok fordi den tjekker om database feltet er tomt, og ikke selve formen fra den foregående side. Har prøvet nogle forskellige variationer uden held. Her er min kode:

If len("" & trim(File1)) > 0 Then
strSQL = "Update tabel set File1='" & Replace(objUpload.Files.Item("File1").FileName, "'", "''") & "' where ID= " &

objUpload.Form("ID")
Conn.Execute(strSQL)
end if

Nå, jeg fandt ud af det til sidst:

If len("" & trim(Replace(objUpload.Files.Item("File2").FileName, "'", "''"))) > 0 Then
strSQL = "Update tabel set File2='" & Replace(objUpload.Files.Item("File2").FileName, "'", "''") & "' where ID= " &

objUpload.Form("ID")
Conn.Execute(strSQL)
end if

- takker mange gange for hjælpen eagleeye.