<%' Now to the Runtime code: Dim strPath 'Path of directory to show Dim objFSO 'FileSystemObject variable Dim objFolder 'Folder variable Dim objItem 'Variable used to loop through the contents of the folder dim tmp ' You could just as easily read this from some sort of input, but I don't ' need you guys and gals roaming around our server so I've hard coded it to ' a directory I set up to illustrate the sample. ' NOTE: As currently implemented, this needs to end with the / %> <% dim ActDir,MyFile MyFile=Split(Request.ServerVariables("PATH_INFO"),"/") galname=MyFile(UBound(MyFile)-1) ActDir= "/" & galname & "/" strPath = ActDir ' Create our FSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' Get a handle on our folder Set objFolder = objFSO.GetFolder(Server.MapPath(strPath)) ' Show a little description line and the title row of our table %> <% =title %>
Custom Motorcycle Appraisals - How To Register A Custom Motorcycle  - Motorcycle Auctions

Scott's Custom Cycles

Post Scott's Custom Cycles To Facebook!

Custom Motorcycle Home


Custom Motorcycle Blog

Custom Motorcycle Builders-

Harley Davidson Customs:
 Bike Builders A-Z
 Custom Motorcycles By State


Metric Customs:
  Bike Builders A-Z
  Custom Motorcycles By State


Sportbike Customs:
  Bike Builders A-Z
  Custom Motorcycles By State


Ground-up Bike Builders:  
  Bike Builders A-Z
  Custom Motorcycles By State

Custom Motorcycle Parts

Motorcycle Gear/
Leather Apparel


Custom Motorcycles - Photos
Search This Site
Cool Stuff
Add/Correct Your Site Listing

About Me
Link To Us
Advertise Here
Tattoo Info

Custom Harley Bikes

Chopper City
Evolution Custom Motorcycles

Bikelinks Directory
A huge and well organised directory for all things motorcycle, all over the world

Learn To Ride


How To Pass Your
Motorcycle Test

Beat Traffic Tickets

custom motorcycle painting

custom motorcycle frames

Find your site listed? A link back is always appreciated. Want your site or business listed? Maybe you want to submit your own site/business description for your already listed site? Drop me an email, no link back required.



> <% ' First I deal with any subdirectories. I just display them and when you ' click you go to them via plain HTTP. You might want to loop them back ' through this file once you've set it up to take a path as input. It seems ' like the logical thing to do to me at least! For Each objItem In objFolder.SubFolders ' Deal with the stupid VTI's that keep giving our visitors 404's If InStr(1, objItem, " ", 1) Then tmp = replace(objitem.name , " " , "_") if objitem.name <> tmp then objitem.name = tmp end if end if If InStr(1, objItem, "_hidden_", 1) = 0 and InStr(1, objItem, "includes", 1) = 0 and InStr(1, objItem, "_vti", 1) = 0Then %> > <% End If Next 'objItem ' All done! Kill off our object variables. Set objItem = Nothing Set objFolder = Nothing Set objFSO = Nothing %> >
Scott's Custom Cycles Photo Galleries

Click Name of Gallery to Open

<%= replace(objItem.Name, "_", " ") %>
<% =linktext %>         .Created by greatasp.co.uk