Ænder FilNavn - Upload

Jeg har et lille problem på min hjemmeside... Bruger på min side kan oprette en profil med billeder af der deres bil. Men når de opretter en bil vælger de også via en form hvor på deres harddisk billedet ligger... Og her opstår problemmet... Hvis 2 personer kalder deres billede for det samme så overskriver den bare det ene billede på serveren... Og det må ikke ske... Så hvordan gør man sådan at når de uploader billedet skal den ændre filnavet til noget tilfældigt ?
Her er koden på den side som uploader billedet og gemmer filnavnet i databasen:

<%

Dim upl, NewFileName
 
Set upl = Server.CreateObject("ASPSimpleUpload.Upload")
 
If Len(upl.Form("File1")) > 0 Then
    NewFileName = "/Images/Biler/" & upl.ExtractFileName(upl.Form("File1"))
    If upl.SaveToWeb("File1", NewFileName) Then
        Response.Write("Billede blev uploadet på server")
    Else
        Response.Write("Fejl! Billedet blev ikke uploadet !!! ")
    End If
End If

strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/bodykits.dk/carstyle.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
call objConn.Open(strConnect)

BilerId = upl.Form("BilerId")
OpretId = upl.Form("OpretId")
Bil = upl.Form("Bil")
Model = upl.Form("Model")
File1 = upl.ExtractFileName(upl.Form("File1"))
Historie = upl.Form("Historie")
Hulstorelse = upl.Form("Hulstorelse")


strINSERT = "INSERT INTO Model (BilerId, OpretId, Bil, Model, File1, Historie, Falge) VALUES ( '"
    strINSERT = strINSERT &  BilerId & "', '" & OpretId & "', '" & Bil & "', '" & Model & "', '" & File1 & "', '" & Historie & "', '" & Hulstorelse & "')"
 
    call objConn.execute(strINSERT)
objConn.close()

Response.Redirect "viscarstyle.asp?BilerId=" & BilerId & "&Bil=" & Bil
%>