 |
|
<%
sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-20)
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")
Set resMensajes = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT TOP 10 * FROM LibroDeVisitas ORDER BY NroMensaje DESC"
conConnection.Open sDriver
resResults.Open sSQL, conConnection
Do While Not resResults.EOF
%>
|
|
|
|
|
<%=resResults("Mensaje")%>
|
|
|
<%
resResults.MoveNext
Loop
conConnection.Close
%>
|
|
 |
| si
desea registrarse haga click aquí |
|
|
 |
|
 |
Ver Lista de Compra
haga click aquí |
|
|
|
|
|
Enviar comentario al Libro de Visitas
haga click aquí |
|
|
|
|
|
