Script ASP - Database: Paging technique - Morpheusweb.it - Webmaster resources: programming, asp script, using asp, file asp, asp, asp post, database asp, asp login, vb asp, asp access, asp download, asp script, formmail, area riservata, paginazione, scripts asp, mailform, asp script download

Paging technique

To use paging for the visualization of database records.



					
					<% 

					RecordsPerPage = 5 

					page = Request("page") 

					if page="" then page=1 

					'  SQL 

					strSearch = Request("search") 

					SQL = "SELECT * FROM [myTable] WHERE [myField] LIKE '%" & strSearch & "%'" 

					' paging 

					rs.PageSize = RecordsPerPage 

					rs.AbsolutePage = page 

					If rs.Eof=True or rs.Bof=True then 

					  Response.Write "<P>No results</P>" 

					Else 

					  For i=1 to RecordsPerPage 

					    if Not rs.EOF then 

					      'shows the record 

					      rs.MoveNext 

					    end if 

					  Next 

					End if 

					%>

					To add a navigation bar: 

					<% 

					Response.Write "<P><B>Pages:</B> " 

					For pag=1 to rs.PageCount 

					Response.Write "<A href='pagina.asp?page=" & pag 

					Response.Write "&" & Server.UrlEncode(strSearch) 

					Response.write "'>" 

					Response.Write pag 

					Response.Write "</A> " 

					Next 

					Response.Write "</P>" 

					%>