Variabel i filnavn

Hej.
Jeg har et script hvor jeg uploader et foto til min server, samt tilføjer en kategori og tekst til min database.
Derefter laver den et thumbnail af billedet hvor "orginal navn" til "small_orginalnavn". Problemet er at jeg selv hver gang skal indsætte filnavnet i strBilledeKilde og StrNytBillede som ses herunder. Jeg vil meget gerne have indsat en variabel med filnavnet fra filen jeg uploader ind så det skaer automatisk.

Håber der er nogen der kan hjælpe mig. (Det er til svigefars hjemmeside, så der er point er at hente.. hehe) :-)

SÅDAN HER SER DET NU NU HVOR JEG SELV SKAL ÆNDRE FILNAVNET:
strBilledKilde = "/myimages/orginalfoto.jpg"
strNytBillede = "/myimages/small_orginalfoto.jpg"

KAN MAN IKKE LAVE NOGET SOM FØLGENDE:
strBilledKilde = "/myimages/"mySmartUpload.Files.Item("File1").FileName".jpg"
strNytBillede = "/myimages/small_"mySmartUpload.Files.Item("File1").FileName".jpg"

Håber i kan hjælpe.

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file1
  Dim file2
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
'  Upload
'  ******
  mySmartUpload.Upload
  intCount = mySmartUpload.Save("/myimages")

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("\db\hyggedatabase.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT * FROM seneste"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        oRs("pic") = mySmartUpload.Files.Item("File1").FileName
        oRs("billedekategori") = mySmartUpload.form("kategori")
        oRs("beskrivelse") = mySmartUpload.form("overskrift")
        oRs("powerpoint") = "Name"
        oRs("visnyhed") = 3
       
        oRs.Update
        intCount = intCount + 1

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")


Dim objImage ' Definer en variabel til objektet

' HER STARTER THUMBNAIL FUNKTION SCRIPTET
Dim strBilledKilde
Dim strNytBillede
Dim intXSize
Dim intYSize

' Angiv hvor vores billed kilde befinder sig
strBilledKilde = "/myimages/orginalfoto.jpg"
' Til dette eksempel må benyttes: JPG, PNG og BMP

' Angiv hvor det nye billede skal gemmes
' og hvad det skal hedde
strNytBillede = "/myimages/small_orginalfoto.jpg"

' Opret objektet så vi kan arbejde med det
Set objImage = Server.CreateObject("AspImage.Image")

' Indlæs en kopi af vores oprindelige billede
objImage.LoadImage(Server.MapPath(strBilledKilde))

' Den nye bredde på billedet skal være 75 prikker
intXSize = 75

' Her beregner vi så hvor højt billedet skal være
' ud fra den bredde vi har bestemt
intYSize = (intXSize / objImage.MaxX) * objImage.MaxY

' Så ændrer vi størrelsen på billedet
objImage.ResizeR intXSize, intYSize


' Så angiver vi hvor vi vil gemme det nye billede
objImage.FileName = Server.MapPath(strNytBillede)

' Vi prøver på at gemme det nye billede, men vil
' gerne have at vide hvis noget gik galt ...
If objImage.SaveImage Then
  ' Det lykkedes at gemme det nye billede,
  ' så lad os vise det ...
  Response.Write "<img src=""" & strNytBillede & """><br>"
Else
  ' Et eller andet gik galt ...
  Response.Write "Der opstod en fejl : " & objImage.Error
End If

' Vi er færdige, så vi rydder pænt op efter os
Set objImage = Nothing




'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>