SUSCRIBETE GRATIS
¿QUIERES PUBLICAR?
CONTACTO

 

HOMEaaaaa ARTICULOSaaaaaPOR CATEGORIASaaaaaARCH SALUD SINaaaaaBUSQUEDAaaaaaREGISTRO

 

           

 

 

Archivos de

Salud de Sinaloa

Revista Médica del Hospital General de Culiacán "Dr. Bernardo J. Gastélum"

 

Resultados obtenidos con <%=Request("Palabra") %>

<% 'realizamos la conexión de la Base de Datos Dim Conexion,articulos Set Conexion=Server.CreateObject("adodb.connection") Set articulos=Server.CreateObject("adodb.recordset") Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("bd1.mdb") 'definimos las variables de busqueda Dim Temp 'Creamos la sentencia SQL que extrae de la base las páginas que tienen la palabra que buscamos 'buscando con el operador LIKE obtenemos apariciones del substring escrito en el formulario, entre las palabras c dim bandera dim Serv dim NumeroRev dim NombreRev dim NombreArt dim NombreAut dim NombreClas dim Link bandera = 0 Temp = "Select distinct Art.NumRev,R.fecha, Art.Nombre,AA.Autores,C.Nombre, link From Articulos as Art, Artautores as AA, Autores as Au, Clasificacion as C, Revista as R Where Art.CveArt = AA.CveArt and Art.NumRev = R.NumRev and Art.CveClasif = C.CveClasif and UCase(Art.Nombre) like '%" & UCase(Request("palabra")) & "%' " articulos.Open Temp, Conexion If articulos.BOF And articulos.EOF Then 'no se encontro 'articulos.close 'NombreArt = articulos(2) 'UCase(NombreArt) like UCase(Request("palabra")) articulos.close 'cierra conexion Temp = "Select distinct Art.NumRev,R.fecha, Art.Nombre,AA.Autores,C.Nombre, link From Articulos as Art, Artautores as AA, Autores as Au, Clasificacion as C, Revista as R Where Art.CveArt = AA.CveArt and Art.NumRev = R.NumRev and Art.CveClasif = C.CveClasif and UCase(AA.Autores) like '%" & UCase(Request("palabra")) & "%' " articulos.Open Temp, Conexion If articulos.BOF And articulos.EOF Then articulos.close Temp = "Select distinct Art.NumRev,R.fecha, Art.Nombre,AA.Autores,C.Nombre, link From Articulos as Art, Artautores as AA, Autores as Au, Clasificacion as C, Revista as R Where Art.CveArt = AA.CveArt and Art.NumRev = R.NumRev and Art.CveClasif = C.CveClasif and UCase(C.Nombre) like '%" & UCase(Request("palabra")) & "%' " articulos.Open Temp, Conexion If articulos.BOF And articulos.EOF Then articulos.close else bandera = 1 ' NombreAut = articulos(3) & " " & articulos(4) & " " & articulos(5) ' UCase(NombreAut) like UCase(Request("palabra")) ' articulos.close end if else bandera = 1 end if else bandera = 1 end if 'if Serv ="clasificacion" then ' Temp = "Select Art.NumRev,R.Nombre, Art.Nombre,Au.Appaterno,Au.Apmaterno,Au.Nombre,C.Nombre, link From Articulos as Art, ArtPer as AP, Autores as Au, Clasificacion as C, Revista as R Where Art.CveArt = AP.CveArt and Art.NumRev = R.NumRev and Art.CveClasif = C.CveClasif and AP.CveAutor = Au.CveAutor and UCase(C.Nombre) like '%" & UCase(Request("palabra")) & "%' " 'end if 'if Serv ="numero revista" then ' Temp = "Select Art.NumRev,R.Nombre, Art.Nombre,Au.Appaterno,Au.Apmaterno,Au.Nombre,C.Nombre, link From Articulos as Art, ArtPer as AP, Autores as Au, Clasificacion as C, Revista as R Where Art.CveArt = AP.CveArt and Art.NumRev = R.NumRev and Art.CveClasif = C.CveClasif and AP.CveAutor = Au.CveAutor and UCase(R.Nombre) like '%" & UCase(Request("palabra")) & "%' " 'end if if bandera = 0 then 'si no encuentra nada nos da este mensaje %>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos <% Else 'aquí comienza el Script que nos muestra los resultados, 'si los encuentra en la tabla %>

<% While Not articulos.EOF 'obtener los datos de la tabla y asignarsela a variables NumeroRev = articulos(0) FechaRev = articulos(1) NombreArt = articulos(2) NombreAut = articulos(3) NombreClas = articulos(4) Link = articulos(5) %> <% 'si encuentra mas de un resultado nos hace una celda mas en la tabla articulos.MoveNext Wend articulos.Close Conexion.Close End If %>
 

<%=NombreClas%>

<%=NombreArt%>
<%=FechaRev%>  <%=NombreAut%>  
 

Busquedas

Derechos Reservados 2013: Hospital General de Culiacán 2013