banner.bmp (28390 bytes)
<% sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-22) sBaseDeDatos = sBaseDeDatos + "_database\ecommerce.mdb" sDriver = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + sBaseDeDatos Set conConnection = Server.CreateObject("ADODB.Connection") Set resResults = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM Medicos WHERE NroMedico = " & Request.QueryString("cod") conConnection.Open sDriver resResults.Open sSQL, conConnection %>
Currículum
<%If Not IsNull(resResults("Consultorio2")) And Not IsNull(resResults("Direccion2")) Then%> <%End If%>

Nombre:

<%=resResults("Nombre")%>

Especialidad:

<%=resResults("Especialidad")%>

Consultorio en:

<%=resResults("Consultorio1")%>

Horario de Atención:

<%=resResults("Horario1")%>

Dirección:

<%=resResults("Direccion1")%>

Teléfono:

<%=resResults("Telefono1")%>

Consultorio en:

<%=resResults("Consultorio2")%>

Horario de Atención:

<%=resResults("Horario2")%>

Dirección:

<%=resResults("Direccion2")%>

Teléfono:

<%=resResults("Telefono2")%>

E-Mail:

<%=resResults("Mail")%>

<%If Not IsNull(resResults("Consultorio1")) And Not IsNull(resResults("Mapa1")) Then%> " WIDTH="169" HEIGHT="146">
<%=resResults("Consultorio1")%>

<%End If%> <%If Not IsNull(resResults("Consultorio2")) And Not IsNull(resResults("Mapa2")) Then%> " WIDTH="169" HEIGHT="146">
<%=resResults("Consultorio2")%>

<%End If%>



<%=resResults("Curriculum")%>
si desea registrarse haga click aquí
Ver Lista de Pedido
haga click aquí
Si desea ingresar a la lista haga click aquí