ASP Image Size og Binary HJÆLP!

Hejsa

Jeg håber virkeligt at der en der kan hhjælpe mig hurtigt :-)

Jeg har i dag et script som kører 112% på ca 15 sider, som er på en server jeg har råderet over, og hvor komponenterne ASPImage og ImgSize er installeret. Men nu er jeg ved at lave et site, som skal ligge på en server hvor jeg ingen råderet har, og som "kun" har ASPImage installeret! Jeg skal derfor have nedenstående script omskrevet så det kan lave det samme men kun med ASPImage! Desuden ville det være genialt at kunne få billedet skrevet ud på siden som en binær streng, så der ikke bliver fyldt op på siden af thumbnails:

<%
Dim ImageName, DummyPic
'Create a Random Number called Random_Number

Randomize

'Set your Min and Max Values

Random_Number_Min = 2
Random_Number_Max = 99999
 
'Call the RND Command

Random_Number = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min)

DummyPic = "../../img/nopic.jpg"

ImageName = "/prodpic/" & trim(prodrs("BILLEDFIL")) & ""
response.write ImageName
'Response.end
if Len(ImageName) < 1 then
  ImageName = DummyPic
end if

ImageName = Server.MapPath(ImageName)
response.write(ImageName)

'*** get width/height of original image
Set objImageSize = Server.CreateObject("ImgSize.Check")
objImageSize.FileName = ImageName
ImageHeight = objImageSize.Height
ImageWidth = objImageSize.Width

If ImageHeight < 1 then ImageHeight = 1 end if
If ImageWidth < 1 then ImageWidth = 1 end if 


'*** calculate aspect ratio based on MINPIXELS
If ImageHeight > ImageWidth Then
    NewWidth = Cint((ImageWidth/ImageHeight)*MINPIXELS2)
    NewHeight = MINPIXELS2
Else
    NewHeight = Cint((ImageHeight/ImageWidth)*MINPIXELS2)
    NewWidth = MINPIXELS2
End If
Set objImageSize = Nothing

'*** create thumbnail image
Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(ImageName)

newPicFileNameOnDisk = ""
NewPicLogicalFileName = ""
NewPicLogicalFileName = "/mainsite/prodpic/small/small_" & Random_Number & ".jpg"
  newPicFileNameOnDisk = Server.MapPath(NewPicLogicalFileName)
  newPicFileNameOnDisk = trim(newPicFileNameOnDisk)
response.write(newPicFileName)

Image.FileName = newPicFileNameOnDisk
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing

Response.Write "<img src=""" & newPicLogicalFileName & """ border=""0"">"
'wend
%>

Er der nogen der kan hjælpe mig?? Jeg har søgt vidt og bredt, men kan ikke få noget af det jeg finder til at virke, JEG ER DESPERAT :-(

/stig :-)