<% Response.Write Request.QueryString("EditMode") dim EditMode if lcase(Request.QueryString("EditMode"))= "true" then EditMode = true else EditMode = false end if 'Pickup directory Const IMGS_DIR = "./" 'Variables for FileSystemObject objects Dim objFSO, objFolderObject, objFileCollection, objFile ' A "handle" to the file selected to use Dim objImageFileToUse ' A variable to build the image tag Dim strImageSrcText Dim TN_strImageSrcText Dim s, file_type Dim ts ' Listing of the directory: Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR)) Set objFileCollection = objFolderObject.Files Set objFolderObject = Nothing Response.Write "" FOR EACH objFile IN objFileCollection ' Get a "handle" on the appropriate file 'SET objImageFileToUse = objFile ' strImageSrcText = IMGS_DIR & objFile.Name strImageSrcText = objFile.Name TN_strImageSrcText = "TN_" & objFile.Name 'Response.Write strImageSrcText 'Response.Write TN_strImageSrcText file_type = objFSO.GetExtensionName (strImageSrcText) 'Response.Write "file type is: " & file_type ' IF UCase(objFSO.GetExtensionName (strImageSrcText)) = "JPG" Then IF ((UCase(objFSO.GetExtensionName (strImageSrcText))) = "JPG" and (mid(strImageSrcText,1,3) <> "TN_" )) Then Response.Write "" ' Display link to images 'Response.Write"" ' Display Images 'Response.Write"" ' Display Images as Links ' Response.Write"" Response.Write "" ts.Close set ts = Nothing cb = cb+1 end if end if Response.Write "" NEXT Response.Write "

" & objFile.Name & "

" Response.Write"

" if Editmode= true then Response.Write "Edit Text" end if ELSE IF UCase(objFSO.GetExtensionName (strImageSrcText)) = "TXT" Then SET ts = objFSO.OpenTextFile (server.MapPath(strimagesrctext)) s = ts.ReadAll Response.Write "

" & s & "

" Set objFSO = Nothing Set objFileCollection = Nothing %>

Home through Deadwood South Dakota
Deadwood South Dakota to Cody Wyoming
Cody Wyoming to Lolo Montana
Lolo Montana to Spokane Washington
Spokane Washington to Morton Washington
Morton Washington to Dinsmore California
Dinsmore California to Reno Nevada
Reno Nevada to Ely Nevada
Ely Nevada to Mt Carmel Junction Utah
Mt Carmel Junction Utah to Durango Colorado
Durango Colorado to Guymon Oklahoma
Guymon Oklahoma, Eureka Springs AR, Memphis, Madison, Home