<% 'on error resume next function photostr(dir,ttl,opt) on error resume next dim tstr set fso = CreateObject("Scripting.fileSystemObject") set fold = fso.getFolder(server.mappath("pages/photo/" & dir)) for each file in fold.files if opt=0 then photostr="pages/photo/" & dir & "/" & file.name exit function end if 'tstr=tstr & "" tstr=tstr & "" next photostr=tstr set fso=nothing set fold=nothing end function %> Please click on the following icons to view the photo gallery under that category:
 
<% on error resume next Set objShell = server.CreateObject("Shell.Application") Set objFolder = objShell.Namespace(server.mappath("pages/photo")) for x=0 to objFolder.Items.count-1 ' step 2 %>

JUIDCO, Jharkhand
<%=objFolder.Items.item(x)%>
<%=photostr(objFolder.Items.item(x),objFolder.Items.item(x),1)%>

<% 'response.write objFolder.Items.item(x) next set objshell=nothing %>