<table width="90%" border cellspacing="0" bordercolorlight="black" bordercolordark="white">
<tr align="center" bgcolor="#00CCFF">
<td width="10%" bgcolor="#A4CBFB"><span class="style5"><b>File No.</b></span></td>
<td width="77%" bgcolor="#A4CBFB"><span class="style5"><b><strong>Contract_No</strong></b></span></td>
<td width="13%" bgcolor="#A4CBFB"><span class="style5"><b> </b></span></td>
</tr>
<% Do While Not rs.EOF And rowCount < rs.PageSize %>
<tr align="center">
<td width="10%"><%=rs(0)%></td>
<td width="77%"><div align="left"><%=rs(5)%></div>
</a></td>
<td width="13%"> <a href="Edit_shipping_.asp?id=<%=rs(0)%>">Edit</a></td>
</tr>
<%
rowCount = rowCount + 1
rs.MoveNext
Loop
%>
</table>
<div align="center">
<%
Response.Write "<hr>"
Response.Write " หน้า "
For i = 1 To rs.PageCount
' ถ้าแสดงอยู่ที่หน้าปัจจุบันไม่ต้องใส่ Hyperlink
If i = CInt(Page) Then
If i = rs.PageCount Then
Response.Write "<b>" & i & "</b>"
Else
Response.Write "<b>" & i & "</b> | "
End If
Else
' ถ้าไม่ได้แสดงอยู่ที่หน้าปัจจุบันให้ใส่ Hyperlink
Response.Write "<a href=Edit_shipping.asp?page=" & i & ">"
If i = rs.PageCount Then
Response.Write i & "</a>"
Else
Response.Write i & "</a> | "
End If
End If
Next
rs.Close
Set rs = Nothing
%>
Load balance : Server 04
