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 "" response.write "" DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs response.write "" end if LOOP response.write "
" response.write "" fieldvalue=rstemp("libro") response.write fieldvalue response.write "
  " fieldvalue=rstemp("autor") response.write fieldvalue response.write "
  " fieldvalue=rstemp("editorial") response.write fieldvalue rstemp.movenext howmanyrecs=howmanyrecs+1 if (howmanyrecs mod 2)=0 then response.write "

" rstemp.close set rstemp=nothing 'call PageNavBar Sub PageNavBar() pad="" response.write "
Página: " if (mypage mod 10) =0 then counterstart = mypage-9 else counterstart= mypage- (mypage mod 10) + 1 end if counterend=counterstart + 9 if counterend > maxpages then counterend=maxpages if counterstart<> 1 then ref="Primera " response.write ref ref="Anterior " response.write ref end if for counter=counterstart to counterend if counter>=0 then pad="" end if if cstr(counter)<> mypage then ref=" " & counter & "  " else ref= " "& counter &" " end if response.write ref if counter <> counterend then response.write " " next if counterend<> maxpages then ref="Siguiente " response.write ref ref=" Ultimo " response.write ref end if response.write "
" end sub %>

RECOMIENDANOS UN LIBRO