Image Resize

Hej.

Jeg har følgende script hvor jeg uploader et billede og tilføjer en kommentar til databasen.
Bagefter tager den så et billede og laver et thumbnail af den.

Problemet er at jeg manualt skal skrive billedets navn i scriptet, men vil naturligvis gerne have den til at lave en resize af det billede jeg uploader i stedet for. Har lidt problemer med at få overført navnet af det uploadede billede til "STRBilledekilde".

Nogen der kan hjælpe?

Her er koden:

<%
'  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("\X\X.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") = "hyggestedet"
        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

' For at det er lidt lettere at håndtere det
' arbejde vi vil have udført, opretter vi her
' nogle flere variable til håndteringen
Dim strBilledKilde
Dim strNytBillede
Dim intXSize
Dim intYSize

' Angiv hvor vores billed kilde befinder sig
strBilledKilde = "/myimages/NAVN1.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_NAVN1.jpg"

Set objImage = Server.CreateObject("AspImage.Image")

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

objImage.ResizeR intXSize, intYSize


objImage.FileName = Server.MapPath(strNytBillede)

If objImage.SaveImage Then

  Response.Write "<img src=""" & strNytBillede & """><br>"
Else
 
  Response.Write "Der opstod en fejl : " & objImage.Error
End If


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