BÌA VÀ MỤC LỤC

<% 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 ORDER BY ID", conn %> <% do until rs.EOF %><% for each x in rs.Fields %><% next %><% rs.MoveNext loop %>

ID	Tên tác giả	Tên bài báo	Trang
<% 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 %>