Ændre filnavn på uploadet fil (aspSmartupload)

mySmartUpload.files.item(1).saveas "mappe/fil.ext"

Det kunne jeg ikke få til at virke med mit script men jeg løste det selv ved at bruge noget tid på at lede og kode lidt kreativt..... Løsningen er her..

DENNE KODE UPLOADER FLERE JPG el. GIF billeder og giver dem unikke navne


<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim strSQL
Dim Rs
Dim intCount
intCount=0
count = 1

    'Arkiv folderen til billederne.
    strTargetPath = "upload/"

   

' Object creation
' ***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload
' ******
MysmartUpLoad.AllowedFilesList = "jpg,gif"
mySmartUpload.Upload




' Open a recordset
' ****************
    Set Rs = Server.CreateObject("ADODB.RecordSet")
    SQL = "SELECT * FROM pictures"
    Rs.Open SQL, Conn, 1, 3


       
            ' Select each file
            ' ****************
            For each file In mySmartUpload.Files

' Only if the file exist
            ' **********************
                If not file.IsMissing Then
                   
                        'Unik filename creation...
                        randomize
                            pwdlen=8            'Hvor langt skal nummeret være i karakterer.
                            pwd=""
                            pwdchr="abcdefghjkmpqrstuvwxyz123456789"  'Hvilke karakterer må indgå i nummeret
                            chrlen=len(pwdchr)
                            for n=1 to pwdlen
                                        x=Int((chrlen - 1 + 1) * Rnd + 1)
                                        pwd=pwd & mid(pwdchr,x,1)
                            next

                    filegen = pwd
                    'Så chekker vi lige extensions, og laver et nyt filnavn med den rigtige ext.
                        if LCase(file.FileExt) = "jpg" then
                            newFileName = filegen & ".jpg"
                           
                            'newfilename = "test.jpg"
                            'Response.Write newfilename
                            'Response.End
                        elseif Lcase(File.fileext) = "gif" then
                            newFileName = filegen & ".gif"
                            'newfilename = "test.gif"
                            'Response.Write newfilename
                            'Response.End
                           
                        end if
                    'Så gemmer vi filen..
                   
                    file.SaveAs (Server.MapPath(strTargetPath & newFileName))

%>

Tak for forsøget...

--=LUKKER=--

Det er nu samme metode, der benyttes. Men et eller andet andet må have gjort forskellen. Fint at det virker.

Tak for hjælpen alligevel..