Resize billede efter upload

<%
    strFile = Request.QueryString(\"file\")

    \' Max bredde på thumbnails. Højde bliver automatisk justeret i korrekte størrelsesforhold
    \' så billedets aspect ratio (proportionerne) bliver bibeholdt.
    intWidth = 150

    If strFile > \"\" Then
        Set fsoSystem = Server.CreateObject(\"Scripting.FileSystemObject\")
        strCheckFile = Left(strFile, InStrRev(strFile, \".\") - 1) & \"_tmb.\" & Right(strFile, Len(strFile) - InStrRev(strFile, \".\"))

        Response.Buffer = True
        Response.AddHeader \"Content-disposition\", \"filename=\" & Right(strFile, Len(strFile) - InStrRev(strFile, \"/\"))
        Response.AddHeader \"Content-type\", \"image/jpeg\"

        If Not fsoSystem.FileExists(Server.MapPath(\"./pictures/\" & strCheckFile)) Then
            Set Image = Server.CreateObject(\"AspImage.Image\")

            Image.LoadImage Server.MapPath(\"pictures/\" & strFile)

            intRatio = (intWidth * 100) / Image.MaxX
            intNewY = CInt(Image.MaxY * (intRatio / 100))
            Image.ResizeR intWidth, intNewY
            Image.ImageFormat = 1
            Image.FileName = Server.MapPath(\"pictures/\" & strCheckFile)
            Image.SaveImage

            Set Image = nothing   
        End If

        Response.Redirect \"pictures/\" & strCheckFile
    End If
%>

Hov vent .. der var lidt for meget med ..

    \' Max bredde på thumbnails. Højde bliver automatisk justeret i korrekte størrelsesforhold
    \' så billedets aspect ratio (proportionerne) bliver bibeholdt.
    intWidth = 190

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

    Image.LoadImage Server.MapPath(strFile)

    intRatio = (intWidth * 100) / Image.MaxX
    intNewY = CInt(Image.MaxY * (intRatio / 100))
    Image.ResizeR intWidth, intNewY
    Image.ImageFormat = 1
    Image.FileName = Server.MapPath(strCheckFile)
    Image.SaveImage

    Set Image = nothing   

Sådan her:

Smid det efter dit database sjov, og det vil resize biledet og gemmer det oven i det uploadede (overskriver)

<%
    strFile = \"/log/partnere\" & filenavn
    \' Max bredde på thumbnails. Højde bliver automatisk justeret i korrekte størrelsesforhold
    \' så billedets aspect ratio (proportionerne) bliver bibeholdt.
    intWidth = 190

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

    Image.LoadImage Server.MapPath(strFile)

    intRatio = (intWidth * 100) / Image.MaxX
    intNewY = CInt(Image.MaxY * (intRatio / 100))
    Image.ResizeR intWidth, intNewY
    Image.ImageFormat = 1
    Image.FileName = Server.MapPath(strFile)
    Image.SaveImage

    Set Image = nothing   
%>

Jeg satte din kode ind efter mit db sjov, men jeg får følgende fejlmeddelelse:

Microsoft VBScript runtime error \'800a000b\'

Division by zero

/administration/pops/upload.asp, line 45

Det er denne linie:
intRatio = (intWidth * 100) / Image.MaxX

Hmm ...

prøv at sætte flg. LIGE inden den linie der er fejl i, og fortæl mig hvad den udskriver:

Response.Write Image.MaxX & \" - \" & Image.MaxY

Som en kedelig fodboldskamp:
0 - 0

hæ hæ .. hmm ..

Måske billedet ikke eksisterer...

Jeg fandt selv fejlen:
Der mangler en \"/\" i \"strFile = \"/log/partnere\" & filenavn\" efter \"partnere\"
Så nu virker det, skønt!
Tusind tak for hjælpen :)

Mvh

ahh .. *G* sorry ..
Godt du kunne bruge det :O)
Og tak for point :o)