Make your own free website on Tripod.com

                                                              welcome to my first web page

                                                               Cartoon

<%@ Language=VBScript %> <% DIM currentPage, rCtr, i currentPage = TRIM(Request("currentPage")) if currentPage = "" then currentPage = 1 Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=AMAR" Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = cn rs.CursorType = adOpenStatic rs.Source = "Custdetai" rs.PageSize = 1 ' 1 record per page rs.Open "SELECT * FROM Custdetai", cn rs.AbsolutePage = cINT(CurrentPage) ' set the current page rCtr = 0 ' set the number of records on a particular page%> <% Response.Write "
" for i = 1 to rs.PageCount %> <%=i%> <% next %>