Saludos.
Haber si puedo ayudarte igual intetare ser lo mas explicito posible.
Comencemos.
Lo primero ( crear la conexion a la base de datos).
de esta forma
Código PHP:
Dim oConn,rs
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Nombre de la base de datos.mdb")
aca solamente hemos cargado el driver de conexion que en este caso es el de access .
Segundo:
creamos la consulta usando nuestro recordeset que en este caso es la variable "rs"
creamos la consulta de la siguiente manera:
Código PHP:
set rs = oConn.Execute("SELECT DISTINCT CamposBD FROM NOMBRE_BD")
la consulta debes tu agregarla al segun sea tu necesidad. Si en caso de que quieras hacer un filtro de datos en la consulta usa la clausula Where.
Un ejemplo:
Código PHP:
set rs = oConn.Execute("SELECT DISTINCT Usuario,contrasena,nombre,apellidos,cargo FROM USUARIOBOD WHERE tipo='0'")
en la consulta anterior solo estoy pidiendo que la base de datos me muestre solo los usuarios que tengan como tipo una valor = 0
bueno aunque no es el caso. Te puede servir de ayuda.
y tercer paso :
Crear un bucle que nos permita mostrar todos los datos de la consulta realizada.
De la siguiente manera.
Código PHP:
<%
while not rs.EOF
'aca van los campos de la bd que quieres mostrar.
Response.Write(rs.Fields("Campo1"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo2"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo3"))
'Obviamente aca debes poner un salto de linea con el html que es de esta manera <br>
Response.Write(rs.Fields("Campo4"))
rs.MoveNext
wend
%>
y como paso final cerraromos la conexion y el recordeset de la base de datos y limpiamos las variables
Código PHP:
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
eso seria :D
CODIGO entero
Código PHP:
<html>
<%
Dim oConn,rs
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("nombre_Bd.mdb")
Realizamos la consulta
set rs = oConn.Execute("SELECT DISTINCT campobd1, campobd2,campobdN FROM NombreTabla")
%>
<body>
<table>
<tr>
<td>VALORES DEL CAMPO1</td>
<td>VALORES DEL CAMPO2</td>
<td>VALORES DEL CAMPON</td>
</tr>
<%
while not rs.EOF
%>
<tr>
<td><%Response.write(rs.Fields("campobd1"))%></td>
<td><%Response.write(rs.Fields("campobd2"))%></td>
<td><%Response.write(rs.Fields("campobdN"))%></td>
</tr>
<%
rs.MoveNext
wend
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
%>
</table>
</body>
</html>
Espero te sirva de ayuda ... Saludos :D