<% '************************************************* '** -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ** '*** * '*** 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 * '*** * '** -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- ** '************************************************* Set MyList = New ArrayList dim fso, fsodir, ourDir, ourItem ourDir = "/images/restaurantreviews/" 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 strMemo = strMemo & "" & vbCrLf MyCounter = 0 For i = 0 to MyList.Length MyJPG = MyList.item(i) MyJPGTitle = MyList.item(i) MyJPGTitle = Replace(MyJPGTitle,".jpg","") If MyCounter = 0 Then strMemo = strMemo & " " & vbCrLf End If MyCounter = MyCounter + 1 if (MyJPGTitle = "_new") Then 'skip else strMemo = strMemo & " " & vbCrLf end if If MyCounter = 4 Then strMemo = strMemo & " " & vbCrLf MyCounter = 0 End If Next strMemo = strMemo & "

" & MyJPGTitle & "
" & vbCrLf Set MyList = Nothing %>
 
 
 
<%=strMemo%>
 
© Metro Media Publishing, Inc. All Rights Reserved. | Site By BSM

Site By BrainScanMedia.com, Inc.