<%' 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

Links:
Custom Harley Bikes

Choppers
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