Upload til Gullestrup.net

Jeg har et dokument som skal uploade et billede, resize det og lægge filnavnet i en databse.

Gullestrup understøtter AspSmartUpload og aspImage.

Jeg kan ikke få den til at resize og jeg kan ikke trække filnavnet ud.

<%
' Variables
' *********
Dim mySmartUpload
Dim intCount
Dim file

'Object creation
'***************
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
Set Image = Server.CreateObject("AspImage.Image")

'Upload
'******
mySmartUpload.Upload

'Save the files with their original names in a virtual path of the web server
'****************************************************************************
intCount = mySmartUpload.Save("../upload")

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.Mappath("../upload"))
Set objFiles = objFolder.Files

For Each File in objFiles

        Image.LoadImage(File.path)
       
        If (image.MaxX > 50) then
            resizeX(50)
        end if
        if (image.maxY > 50) then
            resizeY(50)
        end if
       
        '*****************************SEND DB FORM***************************************
        Dim strDSN, myConn, strSQL, RS
        Set myConn = Server.CreateObject("ADODB.Connection")
        strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/feedback.mdb")
        myConn.Open strDSN
        '********************************INDSÆT TEXT I DB"*******************************
        overskrift = replace(mySmartUpload.form("overskrift"), "'", "''")
        tekst = replace(mySmartUpload.form("tekst"), "'", "''")

        strSQL = "INSERT INTO nyhed ([overskrift], [tekst], [billedfilnavn], [type], [mp3filnavn], [mp3click]) VALUES (" _
            & "'" & overskrift & "', " _
              & "'" & tekst & "', " _
            & "'" & File.filename & "', " _
            & "'billede', " _
            & "'&nbsp;', " _
            & "'&nbsp;')"
        set RS = myConn.execute(strSQL)
       

'sample with a physical path
intCount = mySmartUpload.Save("/upload/nyheder")

Set objFiles = Nothing
Set objFolder = Nothing
Set objFSO = Nothing

File.delete
Next

'--------------------------------------------------------------------------------------------
Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
end sub
'--------------------------------------------------------------------------------------------
Sub ResizeY (intYSize)
  Dim intXSize
  intXSize = (intYSize / Image.MaxY) * Image.MaxX
  Image.ResizeR intXSize, intYSize
end sub

myConn.Close
set myConn = Nothing
%>