<% dim fs,f,ts set fs=Server.CreateObject("Scripting.FileSystemObject") IF fs.FileExists(filePath&"text.txt") THEN Set f=fs.GetFile(filePath&"text.txt") Set ts=f.OpenAsTextStream(1) 'ts.Write("Hello World!") 'ts.CloseSet ts=f.OpenAsTextStream(ForReading) Response.Write(ts.ReadAll) ts.Close set ts=nothing set f=nothing end if %><%'=fs.FileExists("text.txt") set fs=nothing %>
|
','_blank','WIDTH=650, HEIGHT=650'); return false"> <%imageCounter = imageCounter +1%> <% =replace(LEFT(replace(LCASE(file.name),".jpg",""),11),"_"," ")%> <%if len(file.name) > 11 then response.write("...") end if%> |
<%
if imageCounter = 5 then
imageCounter = 0
%>
<%end if%>Images
Welcome to Unclebob's Image Collection.
Last update 21/04/2003
Have Fun!
<%Set tempImagePath = fso.GetFolder(server.MapPath("images\library\"&folder.Name)) firstFolder = folder.Name Set tempSubs = tempImagePath.subfolders if folder.Name = request.QueryString("location") then For Each tempfolder in tempSubs Set files = tempfolder.files%> --&mode=view&path=<%=tempImagePath%>\<%=tempfolder.Name%>\><%=tempfolder.Name%> <%if ((files.count-1)/2) > 0 then%> (<%=round(((files.count-1)/2),0)%>) <%end if %>
<% Set tempImagePath2 = fso.GetFolder(server.MapPath("images\library\"&folder.Name&"\"&tempfolder.Name)) Set tempSubs2 = tempImagePath2.subfolders For Each tempfolder2 in tempSubs2 Set files2 = tempfolder2.files%> --&mode=view&path=<%=tempImagePath2%>\<%=tempfolder2.Name%>\><%=tempfolder2.Name%> (<%=round(((files2.count-1)/2),0)%>)
<%Next%> <%Next%>
<%end if%> <%Next%>