If pageno < 1 or Cint(pageno) > Cint(totalpage) Then
pageno = 1
end if
if len(pageno)=0 then
pageno = 1
end if
rs.AbsolutePage = pageno
b = (rs.PageSize)*pageno
' Response.Write b
if b > rs.recordcount then
c = rs.recordcount-((rs.PageSize)*(pageno-1))
else
c = rs.pagesize
end if
%>
<center>รายชื่อนักศึกษาที่ยังไม่กรอกแบบสอบถาม ปี พ.ศ. <%=uYear%></center>
<TABLE WIDTH="700" BORDER=0 CELLSPACING=0 CELLPADDING=0 style="WIDTH: 783px; HEIGHT: 40px" align=center>
<TR>
<TD><P style="BACKGROUND-COLOR: silver" align=center>ลำดับที่</P></TD>
<TD><P style="BACKGROUND-COLOR: silver" align=center>รหัสประจำตัว</P></TD>
<TD width="200"><P style="BACKGROUND-COLOR: silver">ชื่อ-นามสกุล</P></TD>
<TD><P style="BACKGROUND-COLOR: silver">คณะ</P></TD>
<TD><P style="BACKGROUND-COLOR: silver">สาขา</P></TD>
</TR>
<%
For a=1 to c %>
<TR>
<TD><center><%=(n)%></center></TD>
<TD><center><%=rs("std_id")%></center></TD>
<TD width="200"><%=rs("std_fname")%> <%=rs("std_lname")%></TD>
<TD><%=uTxFacNameTH%></TD>
<TD><%=uTxIscedNameTH%></TD>
</TR>
<% RS.Movenext
n=n+1
Next %>
<table width="600" height="100" border="0" >
<tr>
<td class="bottomdot" width="164" align="left" bgcolor="#FFFFFF">กำลังแสดงหน้าที่</td>
<td class="bottomdot" width="423" align="right" bgcolor="#FFFFFF">
<%
If pageno <> 1 and pageno <> 2 Then
Response.Write "<font size=2 color=#666666>"&"<a href='SplitPage.asp' >หน้าแรก</a> "&"</font>"
End If
if pageno <> 1 Then
Response.Write "<font size=2 color=#666666>"&"<a href='SplitPage.asp?pageno="&pageno-1&"' > หน้าก่อน</a> "&"</font>"
End if
For b =1 To totalpage
If b = Cint(pageno) Then
Response.Write "<b><font size=4 color=red> ("&b&" </font></b>"
Else
Response.Write "<a href='SplitPage.asp?pageno="&b&"' >"&b&"</a>"
End If
If b <> totalpage Then
Response.Write " "
End If
Next
If Cint(pageno) <> totalpage Then
Response.Write "<font size=2 color=#666666>"&" <a href='SplitPage.asp?pageno="&pageno+1&"' >ถัดไป </a>"&"</font>"
End If
If Cint(pageno) <> totalpage Then
Response.Write"<font size=2 color=#666666>"&" <a href='SplitPage.asp?pageno="&totalpage&"' >สุดท้าย</a>"&"</font>"
End If
%>
</td>
</tr>
</table><BR>
<%
else
Response.write("ไม่พบข้อมูล")
end if
RS.Close
Set RS=Nothing
%>
Load balance : Server 04
