uploade og gemme fil som andet navn

Hej.

Følgende kode uploader og gemmer billedet hvorefter der bliver genereret et thumbnail som bliver gemt i en anden mappe. Dette virker fint nok. Mit problem er at jeg gerne vil have den til at gemme filnavn som "dato"_filnavn.jpg. hvordan gør jeg det..???


<%
Dim intCount

  On Error Resume Next
  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  'Max størrelse i bytes
  'upload.MaxFileSize = 50000
 
   
  'Upload filerne til memory
  upload.Upload


  'brugernavn = upload.form("navn")
  For each file In upload.Files
    If not file.IsMissing Then
      'filnavn = "/img/img_chancer/" & brugernavn & "." & file.FileExt
      intCount = upload.Save("/newsite/pics/profilepics/large")
      filnavn = file.filename
     

        ' resize billede
      ' opretter en instans af ASPImage objektet
Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

'filename of original image w/ extension
Dim strOrigImg
strOrigImg = "" & filnavn & ""

'filename of thumbnail w/ extension
Dim strThumbName
strThumbName = "" & filnavn & ""

'full path of original image
Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "newsite\pics\profilepics\large\"


'full path of generated thumbnail
Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "newsite\pics\profilepics\small\"

Dim strOriginal, strThumb, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName

'load original image
MyImage.LoadImage strOriginal


'Resize factor
ResizedX = 75
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y

'maintain aspect ratio
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY


MyImage.ImageFormat = 1
MyImage.FileName= strThumb
MyImage.SaveImage

response.write filnavn
response.write strThumb
response.write stroriginal


set MyImage = nothing

set rs = openrecordset("select * from Pictures")

rs.addnew()
rs("category") = upload.form("category")
rs("UserID") = session("userid")
rs("VoteCount") = 0
rs("Average") = 0
rs("picture") = filnavn
rs("date_added") = now()

rs.update()

set rs = nothing

 
    end if
  next
 
    '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If
 
%>

<% set upload = nothing %>