<%@ Language = "VBScript"%> <% Response.Buffer = True %>

<% set con=server.createobject("adodb.connection") con.open "imacpak_upload-83" , "" , "" set rs=server.createobject("adodb.recordset") Rs.Open "Select * From Files",con,3,3 If Rs.Eof Then Response.Write "No document available " Else If Not Rs.Eof Then Rs.MoveLast %> <% Do While Not Rs.BoF %> <% If Rs("Description") <> "" Then %> <% End If rs.MovePrevious ' If rs.EOF Then Exit For Loop End If Rs.Close Con.Close Set Rs=Nothing Set Con=Nothing %>

List of Publications and Electronic Documents
Sr.	Document	Type	Size
<% Serial = Serial + 1 Response.Write Serial %>	"><%=Rs("Doc_Name")%>	<%=Rs("ContentType")%>	<%=Rs("FileSize")%>
<%=Rs("Description")%>
Page: <%=Intpage & " of " & intpagecount%>

<% End If %>