 |
 |
<%
sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-11)
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 " & sCondicion & " ORDER BY Nombre"
conConnection.Open sDriver
resResults.Open sSQL, conConnection
Contador = 0
Do Until resResults.EOF
If Contador Mod 2 = 0 Then
sColor = "EAEAEA"
Else
sColor = "FFFFFF"
End If
If Contador = 0 Then
%>
| Nombre |
Localidad/es |
<%End If%>
| "><%=resResults("Nombre")%> |
<%=resResults("Consultorio1")%>
<%If Not IsNull(resResults("Consultorio2")) Then%>
, <%=resResults("Consultorio2")%>
<%End If%>
|
<%
Contador = Contador + 1
resResults.MoveNext()
Loop
conConnection.Close()
%>
|
|
|
 |
|
|
 |
| si desea registrarse haga click aquí |
|
|
 |
|
 |
Ver Lista de Pedido
haga click aquí |
|
|
|
|
|
| Si desea
ingresar a la lista haga click aquí |
|
|
|
