Two simple practical ASP paging instances

Paging One
*/

Function showpage (URL)
   dim ii,n
   if totalnumber mod maxperpage=0 then
   ;     n= totalnumber maxperpage
   else
       n= Totalnumber maxperpage+1
   end if
   response.write "<table cellspacing=1 width= ' 100% ' Border=0><form method=post action=? " &url& "><tr><td align=center>" & vbCrLf
   if Currentpage<2 then
       response.write "  Home &nbsp;&nbsp; prev &nbsp;&nbsp;&nbsp;"
   else
      response.write "<a href=?page=1&" &url& " class= "" ShowPage "" > Home </a>&nbsp;&nbsp; "
      response.write "<a href=?page=" &currentpage-1& "&" &url& " class= "" ShowPage "" > Prev </a>&nbsp;&nbsp;&nbsp; "
   end if

If N-currentpage<1 Then
Response.Write "Next page &nbsp;&nbsp; last" & vbCrLf
Else
Response.Write "<a href=?page=" & (currentpage+1) & "&" &url& "class=" "ShowPage" "> next page </a > "
Response.Write "&nbsp;&nbsp;<a href=?page=" &n& "&" &url& "class=" "ShowPage" "> Last </a> "& vbCrLf
End If
Response.Write "&nbsp;<strong><font color=red>" &currentpage& "</font>/" &n& " </strong> page "
Response.Write "&nbsp;" & vbCrLf
Response.Write "&nbsp; goto:"
Response.Write "&nbsp;<select name= ' page ' size= ' 1 ' style=" "font-size:9pt" "onchange=" Web Effects: Submit () ' > ' & vbCrLf
For II = 1 to N
Response.Write "&nbsp;<option value= '" &ii& ""
If Currentpage=cint (ii) then
Response.Write "Selected"
End If
Response.Write ">" &ii& "page </option>"
Next
Response.Write "&nbsp;</select>" & vbCrLf
Response.Write "</td></tr></form></table>" & vbCrLf
End Function

Paging function Two

Function showpagee (URL)
   dim ii,n
   if totalnumber mod maxperpage=0 then
 &nbs p;     n= totalnumber maxperpage
   else
       n = Totalnumber maxperpage+1
   end if
   response.write "<table cellspacing=1 width= ' 100% ' Border=0><form method=post action=? " &url& "><tr><td align=center>" & vbCrLf
   if Currentpage<2 then
       response.write "I &nbsp;previous&nbsp;"
   else
      response.write "<a href=?page=1&" &url& " class= "" ShowPage "" >first</a>&nbsp; "
      response.write "<a href=?page=" &currentpage-1& "&" &url& " class= "" ShowPage "" >previous</a>&nbsp; "
   end if

If N-currentpage<1 Then
Response.Write "Next&nbsp;final page" & vbCrLf
Else
Response.Write "<a href=?page=" & (currentpage+1) & "&" &url& "class=" "ShowPage" ">next</a" > "
Response.Write "&nbsp;<a href=?page=" &n& "&" &url& "class=" "ShowPage" ">final page</ A> "& vbCrLf
End If
Response.Write "&nbsp;<strong><font color=red>" &currentpage& "</font>/" &n& " </strong> page "
Response.Write "" & vbCrLf
Response.Write "&nbsp;goto:"
Response.Write "<select name= ' page ' size= ' 1 ' style=" "font-size:9pt" "Onchange= ' Javascript:submit () ' >" & vbCrLf
For II = 1 to N
Response.Write "&nbsp;<option value= '" &ii& ""
If Currentpage=cint (ii) then
Response.Write "Selected"
End If
Response.Write ">no." &ii& "</option>"
Next
Response.Write "&nbsp;</select>" & vbCrLf
Response.Write "</td></tr></form></table>" & vbCrLf
End Function