<%
'*************************************************
'** -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- **
'*** *
'*** Website Owner Information: *
'*** *
'*** Owner: Staten Island Saving's Guide *
'*** Owner URL: www.sisavingsguide.com *
'*** Published: 2006-2008 *
'*** *
'*** Web Author: BrainScanMedia.com, Inc. *
'*** Author URL: www.brainscanmedia.com *
'*** *
'** -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- **
'*************************************************
strMemo = ""
Set MyList = New ArrayList
dim fso, fsodir, ourDir, ourItem
ourDir = "/books/200x225_Covers/"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fsodir = fso.GetFolder(Server.MapPath(ourDir))
For Each ourItem in fsodir.Files
MyList.Add ourItem.Name
Next
Set ourItem = nothing
Set fsodir = nothing
Set fso = nothing
MyList.Reverse()
strMemo = strMemo & "" & vbCrLf
MyCounter = 0
For i = 0 to MyList.Length
MyPDF = MyList.item(i)
MyJPG = MyList.item(i)
MyJPGTitle = MyList.item(i)
MyPDF = Replace(MyPDF,".jpg",".pdf")
MyJPGTitle = Mid(MyJPGTitle,18,7)
If MyCounter = 0 Then
strMemo = strMemo & " " & vbCrLf
End If
MyCounter = MyCounter + 1
strMemo = strMemo & " ![](/books/200x225_Covers/" & MyJPG & ")
" & MyJPGTitle & " | " & vbCrLf
If MyCounter = 7 Then
strMemo = strMemo & "
" & vbCrLf
MyCounter = 0
End If
Next
strMemo = strMemo & "
" & vbCrLf
Set MyList = Nothing
%>
 |
| |
|
|
| |
 |
| |
| <%=strMemo%> |
| |
|
© Metro Media Publishing, Inc. All Rights Reserved. | Site By BSM
|
Site By BrainScanMedia.com, Inc.