|
Estos
son los libros que Psiconautica recomienda. Si deseas recomendarnos un
libro para que nuestro equipo lo evalúe para una posible inserción
en estas páginas, pulsa aquí.
<%strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\mdb\psicolibros.mdb")
Set RS=Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnString
sqltemp = "select * From libros where publicar=True order by autor"
mypage=request("whichpage")
If mypage="" then
mypage=1
end if
mypagesize=request("pagesize")
If mypagesize="" then
mypagesize=10
end if
mySQL=request("SQLquery")
If mySQL="" then
mySQL=sqltemp
end if
Set RStemp = Server.CreateObject("ADODB.RecordSet")
rstemp.cursorlocation=3
rstemp.cachesize=5
rstemp.open mySQL, conn
rstemp.movefirst
rstemp.pagesize=mypagesize
maxpages=cint(rstemp.pagecount)
maxrecs=cint(rstemp.pagesize)
rstemp.absolutepage=mypage
howmanyrecs=0
howmanyfields=rstemp.fields.count -1
call PageNavBar
response.write "" response.write " " response.write "
" rstemp.close set rstemp=nothing 'call PageNavBar Sub PageNavBar() pad="" response.write "
|