<% clave=request.querystring("clave") Dim busca, clave, rs, DSN, SQL, i if clave="rev" then clave="REVISTAS" busca="Revistas a Texto Completo" elseif clave="lv" then clave="LIBROS" busca="Libros Virtuales" elseif clave="or" then busca="Obras de Referencia" elseif clave="sa" then clave="sa" busca="Salud Ambiental/Toxicología" elseif clave="bv" then clave="bv" busca="Bibliotecas Virtuales" elseif clave="em" then busca="Educación Médica" elseif clave="d" then clave="dp" busca="Asociaciones Médicas" elseif clave="ps" then clave="pl" busca="Proveedores de la Salud" elseif calve="v" then clave="v" busca="Conferencias" elseif clave="do" then clave="DIARIO OFICIAL" busca="Diario Oficial de la Federación" elseif clave="Literatura" then busca="Obras Literarias" elseif clave="idi" then busca="Aprendizaje de Idiomas" elseif clave="bdm" then busca="Las Bases de Datos Medicas" elseif clave="vm" then busca="Videos de Medicina" elseif clave="n" then busca="Normas" elseif clave="emc" then busca="Educación Médica Continua" elseif clave="im" then busca="Imagenes Médicas" elseif clave="v" then busca="Conferencias" end if Public function lineaSQL( ) SQL = "SELECT clasif.LLAVE, clasif.FOLIO, titulos.LLAVE, titulos.FOLIO FROM clasif INNER JOIN titulos ON clasif.FOLIO=titulos.FOLIO WHERE clasif.LLAVE='"+clave+"' order by titulos.LLAVE" end function Set rs = Server.CreateObject("ADODB.RecordSet") DSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Sarabi_infovi.mdb") SQL = "SELECT datos.LLAVE AS DATLLAVE, datos.FOLIO AS DATFOLIO,clasif.LLAVE AS CLALLAVE, clasif.FOLIO AS CLAFOLIO, titulos.LLAVE AS TITLLAVE, titulos.FOLIO AS TITFOLIO, www.LLAVE AS WLLAVE, www.FOLIO AS WFOLIO FROM www INNER JOIN (clasif INNER JOIN (datos inner join titulos on (titulos.folio=datos.folio)) ON (clasif.FOLIO=datos.FOLIO)) ON www.FOLIO=clasif.FOLIO WHERE clasif.LLAVE='"+clave+"' order by titulos.LLAVE" ' SQL = "SELECT gratis.LLAVE AS GRALLAVE, gratis.FOLIO AS GRAFOLIO, datos.LLAVE AS DATLLAVE, datos.FOLIO AS DATFOLIO,clasif.LLAVE AS CLALLAVE, clasif.FOLIO AS CLAFOLIO, titulos.LLAVE AS TITLLAVE, titulos.FOLIO AS TITFOLIO, www.LLAVE AS WLLAVE, www.FOLIO AS WFOLIO FROM www INNER JOIN (clasif INNER JOIN (datos inner join (titulos on (titulos.folio=datos.folio)) ON (clasif.FOLIO=datos.FOLIO)) ON (www.FOLIO=clasif.FOLIO)) WHERE clasif.LLAVE='"+clave+"' order by titulos.LLAVE" RS.OPEN SQL, DSN response.write "
Estas Consultando " & busca &"

" 'response.write busca response.write "" i=1 Do while not rs.eof 'xyz=(rs("GRALLAVE")) 'if xyz="1" then 'tipo="Información Para Pacientes" 'end if 'if xyz="2" then 'tipo="Información Para Estudiantes" 'end if 'if xyz="3" then 'tipo="Información Para Medicos en General" 'end if 'if xyz="1" then 'tipo="Información Para Medicos Especialistas" 'end if response.write "" rs.movenext i=i+1 loop response.write "
Reg: " & i & "
" & (rs("DATLLAVE")) & "
Titulo: " & (rs("TITLLAVE")) & "
Gratuita
Folio: " & (rs("CLAFOLIO")) & "
" & (rs("WLLAVE")) & "
 
" rs.close set rs=nothing set DSN=nothing %>