mdb - Análisis Lab. Duran Bellido

<% Dim bytTipoConsulta, scadenaBusqueda, bExacta, lResultados, sResultados(), lExito, Letra Letra=request.QueryString("l") lExito = 0 lResultado = 0 bytTipoConsulta = 2 lResultados = 0 ReDim sResultados(8, 0) scadenaBusqueda = Letra bExacta = False Set objBuscador = CreateObject("MDBWeb.clsBuscador") Dim PagAct,PagTot,TamPag,Indice,I TamPag=15 if request.QueryString("pagina")="" then PagAct=1 Indice=0 lExito = objBuscador.lResultadosBusqueda(bytTipoConsulta, scadenaBusqueda, bExacta, sResultados, lResultados) Session("sResultados")=sResultados Session("lResultados")=lResultados Session("Letra")=Letra else PagAct=cint(request.QueryString("pagina")) lResultados=Session("lResultados") Letra= Session("Letra") Indice=(PagAct-1) * TamPag end if PagTot= (lResultados \ TamPag) If PagTot - (lResultados/TamPag) <> 0 then PagTot=PagTot+1 If PagTot < 1 then PagTot=1 If PagAct < 1 then PagAct=1 If PagAct > PagTot then PagAct=PagTot %> mdb - Análisis Lab. Duran Bellido

GRUPO LAB. DURAN BELLIDO

Castellano | Català | English | Français

mdb@labmdb.com

Inicio | Links de interés | Ofertas de Trabajo | Atención al Paciente

Quiénes somos	Dónde estamos	Análisis clínicos	Consulta de resultados
Historia \| Valores		Pruebas \| Recomendaciones \| Servicios \| Departamentos	Clientes \| Profesionales

Resultados de la búsqueda:
Haga clic en la descripción de la prueba para ver los detalles de la misma.

Letra: '<% response.Write(Letra)%> '<% response.Write(" - Total Pruebas encontradas: " & CStr(lResultados) & "")%> <% Response.Write(" - Página " & PagAct & " de " & PagTot ) %>

<% If lExito = 0 Then 'OK %> <% For I=Indice to Indice+TamPag-1 if I <% end if Next 'Indice=I Else 'no OK Response.Write("

La llamada a la librería a devuelto " & CStr(lExito) & " como resultado.
No ha sido posible establecer la conexión para realizar la consulta.

") End If %>

DESCRIPCION	CODIGO	TIPO
<% response.Write( Session("sResultados")(2,I) ) %>	<% response.Write(Session("sResultados")(1,I)) %>	<% response.Write(Session("sResultados")(0,I)) %>

<% if PagAct>1 then Response.Write("Página Anterior") else Response.Write("Página Anterior") end if %>	<% dim x For X=1 to PagTot if X<>PagAct then Response.Write(" " & x & " ") else Response.Write(" " & x & " ") end if next %>	<% if PagAct < PagTot then Response.Write("Página Siguiente") else Response.Write("Página Siguiente") end if %>
Volver al Catálogo

<% Set objBuscador = Nothing %>