<% Set fs=Server.CreateObject("Scripting.FileSystemObject") Set rs=fs.opentextFile(Server.MapPath("../pages/hntqEcounter.txt"),1,false) fcount=rs.readline rs.close set rs=nothing set fs=nothing session("hitCount")=fcount %>

COVER AND TABLE OF CONTENTS

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("../database/proceedings4.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "Select * from HNTQ4_E ORDER BY ID", conn %> <% do until rs.EOF %><% for each x in rs.Fields %><% next %><% rs.MoveNext loop %>

ID	Authors	Paper titles	Page
<% if x.name="TenBai" then %>.pdf"> <% end if if x.name<>"TenBai" then %><% end if Response.Write(x.value) if x.name<>"TenBai" then %><% end if if x.name="TenBai" then %><% end if %>

<% rs.close conn.close %>

____________________
Access Nr: <%=session("hitCount")%>