<% Set Rst=Server.CreateObject("Adodb.RecordSet")
Sqlt="Select * From SiteExplain Where ClassID='6' Order By NavOrder asc"
Rst.Open Sqlt,Conn,1,1
If Not RsT.Eof Then
i=1
Do While Not Rst.Eof
%>
<%
ID=trim(request("ID"))
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From [JobInfo] Order By JobNumber Desc"
Rs.Open Sql,Conn,1,1
Dim Page
Page=Request("Page")
PageSize =5
Rs.PageSize = PageSize
Total=Rs.RecordCount
PGNum=Rs.PageCount
If Page="" Or clng(Page)<1 Then Page=1
If Clng(Page) > PGNum Then Page=PGNum
If PGNum>0 Then Rs.AbsolutePage=Page
i=0
If Not (Rs.Eof Or Rs.Bof) Then
Do While Not Rs.Eof And i
