<% server.ScriptTimeout = 60000 %> <% Response.buffer = true %> <% Response.Expires=-1 %> The Millennium Lodge No.327 - Incoming officers <% Dim url Dim count count = 0 url = "http://" & Request.ServerVariables("HTTP_HOST") & "/demo/Lodge/" Set rs = Server.CreateObject("ADODB.Recordset") %>
 
 
To read the issues,
you need Adobe Reader (PDF).
Click here to download.
 
 
Sl.no Title
Volume
Number
Year / Month
<% str = "Select * from tbl_fileinfo where volume = (Select * from tbl_currentversion ) order by sl_no desc " if rs.state = 1 then rs.close() rs.open str,conn,1,2 %>
<% if rs.recordcount > 0 then while not rs.eof path = url & "archives/" & trim(rs("file_name")) if (cint(count) < 12) then %> <% End if count = cint(count) + 1 rs.movenext wend End if rs.close() %>
<%=trim(rs("sl_no"))%> <%=trim(rs("Title"))%> <%=trim(rs("Volume"))%> <%=trim(rs("Num"))%> <%=trim(rs("mon_of_pub"))%>  <%=trim(rs("year_of_pub"))%>
         
         
         
         
         
         
         
         
         
         

All Issues  

 
 
 
<% conn.Close set conn = nothing %>