|
Ride-About 2005
|
Holiday FL to Deadwood SD
|
<%
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"| " & objFile.Name & " | "
' Display Images
'Response.Write" | "
' Display Images as Links
' Response.Write""
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 & " | "
Response.Write "
"
ts.Close
set ts = Nothing
cb = cb+1
end if
end if
Response.Write ""
NEXT
Response.Write "
"
Set objFSO = Nothing
Set objFileCollection = Nothing
%>