xyz
Home About School Members Admission Infrastructure Activities Achievements Gallery TC Status News Contact










TRANSFER-CERTIFICATE

Go Back

 <% Dim FSO Dim Files Dim File Dim Count Const Columns = 4 Const ImageWidth = 200 Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set Files = FSO.GetFolder(request("serverp")).Files Set FSO = Nothing Response.Write "" Response.Write "" response.write "

You are currently viewing gallery: " response.write request("gallery_name") response.write "
" Count = 0 For Each File In Files Select Case LCase(Right(File.Name, 3)) Case "jpg", "gif", "bmp", "png","jpeg" Count = Count + 1 if Count Mod Columns = 1 Then Response.Write "
" Response.Write "" End Select Next Response.Write "" Response.Write "
" Response.Write "
" 'Response.Write File.Name Response.Write "


" Response.Write "
" Response.Write "
" Set File = Nothing Set Files = Nothing %>