<% Dim CurrentPage,RowCount,i CurrentPage=TRIM(Request("CurrentPage")) if CurrentPage="" then CurrentPage=1 Set ObjCon=Server.CreateObject("ADODB.Connection") Set ObjRec=Server.CreateObject("ADODB.Recordset") ObjCon.Open "driver={SQL SERVER};server=mahesh;uid=sa;database=test" ObjRec.CursorType=adOpenStatic ObjRec.PageSize=5 dim tsql tsql="" tsql="Select * from Student " ObjRec.Open tsql,ObjCon ObjRec.AbsolutePage=cINT(CurrentPage) RowCount=0 While Not ObjRec.Eof and RowCount <% =i %> <% Next %>