ASPJPEG Help

[audiopro]

I am having some trouble here, and my brain is running on empty. I am
not an expert ASP coder, so forgive me for what is probably sloppy
code, and not the best...

At any rate, I have created the following code to randomly select an
image under a random set of folders from my gallery. Once that is done,
I call sendbinary.asp which should size and display the image... Here
is my code. Problem is, I am getting a good ole red X. It looks like it
is passing things okay, but still not working.

The URL for test is http://earth.sitepros.net/test/rndimage.asp

rndimage.asp

------------------------
<%

Const ImagesRoot = "images"
Const ThumbsFolder = "__thumbs"

' Get List of Subfolders under ImagesRoot
Set fsoFolder = CreateObject("S cripting.FileSy stemObject")

Set FolderRoot =
fsoFolder.GetFo lder(Server.Map Path(ImagesRoot ))

Set FolderSubs = FolderRoot.subf olders

' Get a Random Folder Number from List
randomize
RndFolderNum = Int(FolderSubs. count * Rnd)

' Associate Folder name based on Random Number Results
For Each objFolder in FolderSubs
If intFileLooper = RndFolderNum Then
' Get a "handle" on the appropriate file
Set objFolderToUse = objFolder
Exit For
End If
intFileLooper = intFileLooper + 1
Next

'Clean up Above Variables
Set fsoFolder = Nothing
Set FolderRoot = Nothing
Set FolderSubs = Nothing
Set RndFolderNum = Nothing
' Build Complete Virtual Path to Random Folder
objFolderToUseP ath = (ImagesRoot & "/" & objFolderToUse. name & "/" &
ThumbsFolder &"/")

' Get a List of Image Files from Folders
Set fsoFile = Server.CreateOb ject("Scripting .FileSystemObje ct")
Set objFolderObject =
fsoFile.GetFold er(Server.MapPa th(objFolderToU sePath))

Set objFileCollecti on = objFolderObject .Files

' Get a Random File Number from List
randomize
intFileNumberTo Use = Int(objFileColl ection.Count * Rnd) + 1

' Associate File name based on Random Number Results
intFileLooper = 1
For Each objFile in objFileCollecti on
If intFileLooper = intFileNumberTo Use Then
' Get a "handle" on the appropriate file
Set objImageFileToU se = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next

' Clean up Above Variables
Set fsoFile = Nothing
Set objFolderObject = Nothing
Set objFileCollecti on = Nothing

' Build our img src tag text
strImageSrcText = objFolderToUseP ath & objImageFileToU se.Name

%>
<!- Display The Image ->
<img src ="sendbinary.as p?path=<%= strImageSrcText %>&width=125">
<%

'Clean up Remaining Variables
Set objFolderToUse = Nothing
Set objFolderToUseP ath = Nothing
Set objImageFileToU se = Nothing
Set strImageSrcText = Nothing

%>

sendbinary.asp
------------------------
<%
Response.Expire s = 0
' create instance of AspJpeg
Set Jpeg = Server.CreateOb ject("Persits.J peg")

' Open source file
Jpeg.Open( Request("path") )

' Set new height and width
Jpeg.Width = Request("Width" )
Jpeg.Height = Jpeg.OriginalHe ight * Jpeg.Width / Jpeg.OriginalWi dth

' Perform resizing and
' send resultant image to client browser
Jpeg.SendBinary

%>

[audiopro]

Well I figured out what my problem was. I was using a virtual path, not
a complete physical path. So the code works now! I have an image
rotator on my site that pulls random images from random dirs.

Here is a link to my site, as well the code for the image rotator.

http://weblog.sitepros.net/journal_c...p?JournalID=79