<%@LANGUAGE="VBSCRIPT"%>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'INCLUDE THIS SECTION OF SCRIPT
Select Case request("Action")
Case ">>"
if Not Session("rs").EOF then
Session("rs").MoveNext
end if
Case "<<"
if Not Session("rs").BOF then
Session("rs").MovePrevious
end if
Case Else
SetFolderList ".",".jpg"
end select
%>
<%
Function SetFolderList(folderspec, mask)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
thisPath = Server.MapPath (".")
Set f = fso.GetFolder(thisPath)
Set fc = f.Files
Set rs = CreateObject("ADODB.Recordset")
'Create the filename field
rs.Fields.Append "filename", 129, 64
'Set the field values
rs.Open
For Each f1 in fc
fname = LCase( f1.name )
if Right( fname, 4 ) = mask Then
rs.AddNew
rs.Fields("filename").Value = f1.name
rs.Update
end if
Next
rs.MoveFirst
Set Session("rs") = rs
End Function
''' END INCLUDE SCRIPT''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
Joe and Shelly.com