ASPImage MapPath opfører sig underligt!!

Hejsa

Jeg får følgende fejl på min ASP side kørende med ASPImage:

Server.MapPath() error 'ASP 0214 : 80004005'
Invalid Path parameter
/mainsite/main.asp, line 892
The Path parameter excedes the maximum length allowed.


Linie 892 er følgende:

ImageName = Server.MapPath(ImageName)


Scriptet på siden som fejlen henviser til er :

<%
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 = "/erotikpaladset/mainsite/prodpic/" & prodrs("BILLEDFIL")
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
%>

Jeg håber der er en der kan hjælpe *S

Mvh

Stig :-)