Nedskalering afhængig af originale dimensioner

Er der slet ingen der kan hjælpe mig her? Man må da kunne gøre noget?? :-)

Du kan bruge følgende kode til at finde den nye størrelser. De bliver placeret i strImgWidth og strImgHeight.
-------------------------------------------
strFile="billede.jpg"
strThumbHeight=100

Set Img=loadpicture(Server.MapPath(strFile))
strImgWidth=(Round(Img.width/26.4583)/Round(Img.height/26.4583))*strThumbHeight
strImgHeight=strThumbHeight
Set Img=Nothing

Jeg får flg. fejl

Microsoft VBScript runtime error '800a01b0'

File name or class name not found during Automation operation: 'loadpicture'

/test/default.asp, line 111

Linie 11:

Set Img=loadpicture(Server.MapPath(strFile))

Ved du hvad dette kan betyde?

hvad har du sat strFile til?

strVarenummer = rs("varenummer")
strBilledeformat = ".jpg"
strFile = strVarenummer & strBilledeformat

Burde det ikke virke? Den henter fint ud fra databasen ellers.

Fejlen:

Microsoft VBScript runtime error '800a01b0'

File name or class name not found during Automation operation: 'loadpicture'

/test/default.asp, line 112

Den samlede kode er således:

De ligger vel ikke i en eller anden mappe et andet sted på serveren?

Jo, det var der fejlen lå, det må du undskylde ;-) Men tusind tak for hjælpen, vil du lave et svar?

Jaeh, det vil jeg gerne. :)

Tak for hjælpen