<%@ Language=VBScript %> <% if session("login_ad") = "true" then %> Cong ty XL va CN tau thuy Mien Trung - Middle Area Construction and Shipbuilding Industry Co.
<% Dim Dpage,Dcount con.Open strDSN stt=0 Dpage=CLng(Request("Page")) If Dpage < 1 then Dpage = 1 end if rs.CursorLocation = 3 rs.Pagesize = 15 rs.open "select * from contact ", con,0, 1 Dcount = rs.PageCount if Dpage > Dcount then Dpage = Dcount end if if not rs.EOF then rs.AbsolutePage = Dpage end if %> <% call showPageNavigation(Dpage,Dcount) %> <% ' while not rs.EOF Do while rs.AbsolutePage = Dpage and Not rs.EOF stt=stt+1 %> <% rs.MoveNext ' wend loop %>

No

Name of company

Full name

Contents

 Del Detail
<% response.write stt %>

 <%= rs.Fields(1) %>

 <%= rs.Fields(2) %>

 <%= rs.Fields(7) %>

Detail

<% Sub ShowPageNavigation(Dpage,Dcount) ' if Dpage <> 1 and Dpage <> 0 then if Dpage > 1 then %>

Back <% else %> Back <% End if %> <% if Dpage < Dcount then %> | Next <% Else %>| Next <% End if 'rs.close %>| Page <%=Dpage%> / <%=Dcount%><%End Sub%>

Back

<% else %> <% Response.Write("

Invalid Login

") end if %>