Paths in templates

Question

hi,
read some threads about it, but still cannot find out. it's a
simple piece of code where is a path to a specific folder which DW
doesn't treat as a link/path and that's why pages on different
level than a tempalate doesn't works. here is the line of code
which makes problem:
Const ImagesRoot = "../splosno/foto/najprodajalec/random"
now what exactly i need to do that pages relative to the
template file will works?
thanx!
bostjan

Answer 1

Show us a page where this process is failing, please.
Murray --- ICQ 71997575
Adobe Community Expert
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.dreamweavermx-templates.com
- Template Triage!
http://www.projectseven.com/go
- DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs,
Tutorials & Resources
http://www.macromedia.com/support/search/
- Macromedia (MM) Technotes
==================
"bossti" <[email protected]> wrote in
message
news:[email protected]...
> what i would like to do is random image from all
subfolder on all the
> pages
> (1000+). most pages are based on a template file.
> structure of directories where are images is like
>
root>splosno>foto>najprodajalec>random>album1,.......
>
> and this is the code for which is workable itself, but
when i use it on a
> template it doesn't show images (led cross sign):
>
> <!- Image Rotator Script provided by Greg Gibson of
Sitepros Network
> Solutions
> ->
> <!-
http://weblog.sitepros.net
and
http://www.sitepros.net ->
> <!- Download this script at
>
http://weblog.sitepros.net/stuff/ImageRotator.zip
> ->
>
> <%
>
> 'Declare Variables
> dim fsoFolder, FolderRoot, FolderSubs, RndFolderNum,
objFolder,
> intFileLooper
> dim objFolderToUse, objFolderToUsePath, fsoFile,
objFolderObject,
> objFileCollection
> dim intFileNumberToUse, objFile, objImageFileToUse,
strImageSrcText
>
> 'This is a relative path to your image gallery root
> Const ImagesRoot = "/splosno/foto/najprodajalec/random"
>
> ' Get List of Subfolders under ImagesRoot
> Set fsoFolder =
CreateObject("Scripting.FileSystemObject")
>
> Set FolderRoot =
> fsoFolder.GetFolder(Server.MapPath(ImagesRoot))
>
> Set FolderSubs = FolderRoot.subfolders
>
> ' 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
> objFolderToUsePath = (ImagesRoot & "/" &
objFolderToUse.name & "/")
>
> ' Get a List of Image Files from Folders
> Set fsoFile =
Server.CreateObject("Scripting.FileSystemObject")
> Set objFolderObject =
> fsoFile.GetFolder(Server.MapPath(objFolderToUsePath))
>
> Set objFileCollection = objFolderObject.Files
>
> ' Get a Random File Number from List
> randomize
> intFileNumberToUse = Int(objFileCollection.Count * Rnd)
+ 1
>
> ' Associate File name based on Random Number Results
> intFileLooper = 1
> For Each objFile in objFileCollection
> If intFileLooper = intFileNumberToUse Then
> ' Get a "handle" on the appropriate file
> Set objImageFileToUse = objFile
> Exit For
> End If
> intFileLooper = intFileLooper + 1
> Next
>
> ' Clean up Above Variables
> Set fsoFile = Nothing
> Set objFolderObject = Nothing
> Set objFileCollection = Nothing
>
> ' Build our img src tag text (Note this is a full
physical path, not
> virtual)
> strImageSrcText = objImageFileToUse
>
> %>
>
>
> <!- Display The Image ->
> <img src
="/splosno/foto/najprodajalec/sendbinary.asp?strImage=<%=
> strImageSrcText %>&Width=150&Height=150"
border="1" Width="150"
> Height="150">
> <%
>
> 'Clean up Remaining Variables
> Set objFolderToUse = Nothing
> Set objFolderToUsePath = Nothing
> Set objImageFileToUse = Nothing
> Set strImageSrcText = Nothing
>
> %>
>
>
> inside the directory najprodajalec is one more file who
cares about image
> properties (resize image). it's called sendbinary.asp:
>
>
> <%
> Response.Expires = 0
>
> ' create instance of AspJpeg
> Set Jpeg = Server.CreateObject("Persits.Jpeg")
>
> ' Open source file
> Jpeg.Open( Request("strImage") )
>
> ' Set new height and width
> Jpeg.Width = Request("Width")
> Jpeg.Height = Request("Height")
>
> ' Perform resizing and
> ' send resultant image to client browser
> Jpeg.SendBinary
>
> %>
>
> if you find out it would be your present for my
tommotrows birthsday:-)
>
> enyoj!
> bostjan
>