<% Response.write "" Response.write "" ''Response.write "" Response.write "" Response.write "" Response.write "" Response.write "
" Response.write "" 'Dim ObjConn 'Dim ObjRS 'Dim ObjRsTotRec ' Dim cTabNm ' Dim StrSql ' Dim nTotRec Set ObjConn = CreateObject("Adodb.connection") Set ObjRS = CreateObject("Adodb.Recordset") Set ObjRsTotRec = CreateObject("Adodb.Recordset") ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\JaiNishant\MyAbhishek.mdb") & ";Persist Security Info=False" StrSql = "Select * From Book Order By Roll" ObjRS.Open StrSql, ObjConn if not ObjRS.EOF = true then StrSql = "Select Count(*) As TotRec From Book " ObjRsTotRec.Open StrSql, ObjConn nTotRec = ObjRsTotRec.fields("TotRec") '***START DISPLAYING 20 RECORD***************************************************************** PageNo = 1 i = 0 objRS.MoveFirst Do while Not objRS.Eof i = i + 1 objRS.MoveNext Loop Session("RecCount") = i If I Mod 2 = 0 Then PageNo = (i/2) Else PageNo = (i/2)+1 End If Session("LPageNo") = Int(PageNo) Response.Write "
" Response.Write "

" Response.Write " पेज #  " For j = 1 to PageNo Response.Write "" & "" & j & "" & " , " &" " Next Response.Write "

" Response.Write "
" Response.write "		" If Cint(Round(Session("LPageNo"))) = 1 Then 'Response.Write "

Record # 1 - " & Session("RecCount") & "

" Response.Write "Record # 1 - " & Session("RecCount") & "" Else 'Response.Write "

Record # 1 - 2

" Response.Write "Record # 1 - 2" End If '***END DISPLAYING 20 RECORD***************************************************************** Response.write "  " Response.write " " Response.write "" Response.write "		" Response.write "
" Response.write "

पुस्तक

" Response.write "
" Response.write "
" Response.write "
" Response.write "
" Response.write "" '*** START ~~ Display Main Details ******************************************* ObjRS.moveFirst For i = 1 to 2 if i <> 2 then Response.write "
" end if Response.write "
" Response.write "
" Response.write "
" Response.write "

" Response.write ObjRS.fields("Heding") & " - " & ObjRS.fields("Sub") Response.write "

" Response.write "
" Response.write "" Response.write ObjRS.fields("Details") Response.write "" Response.write "
" Response.write "
" Response.write "Author Name: " & ObjRS.fields("Author") Response.write "
" Response.write "Publication Name:" Response.write "
" Response.write "Price Rs.:" & ObjRS.fields("Pap") Response.write "
" Response.write "
" 'Response.write "
" Response.write "
" Response.write "View this book" Response.write "" Response.write "
" Response.write "
" Response.write "
" Response.write "
" Response.write "
" if i <> 2 then Response.write "
" end if ObjRS.movenext Next '*** END ~~ Display Main Details ******************************************* Response.write "
" Else response.write "

" Response.write "
ROLL NO NOT FOUND !
" response.write "

" Response.write "Back" end if %>