Om jag har förstått manualen rätt:
Randomize
Set objFile = objUpload.Files("[b]filen[/b]") ' <input type="file" name="[b]filen[/b]">
strName = objFile.FileName
objFile.SaveAs(Session("id") & "_" & Int(Session.SessionID * Rnd()) & "." & Right(strName, Len(strName) - InStrRev(strName, ".")))
Set objFile = Nothing