Asp. Conectarse a una base de datos

<%Option Explicit %>

<%
Dim oConn,strSQL, objRS
'realizamos la conexión con la base de datos.

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("base/Clientes.mdb"))

'seleccionamos a traves de una consulta SQL todos los campos de la tabla Clientes
strSQL = "SELECT * FROM Clientes"
Set objRS = oConn.Execute(strSQL)

%>

<TABLE BORDER=1>
<TR><TD> nombre</TD><TD> comentario</TD></TR>
<%
'creamos un bucle que recorra todos los registros de la tabla
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("nombre") & "</td><td> " & objRS("comentario") & " </td></tr>")
objRS.MoveNext
wend
'cerramos la conexión
oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>

Deportes	Postales	Musica	Calculadora	El tiempo	Escaneres	Dvd	Gps	Directorio web	Futbol
Mapas	Diseñador web	Pc sobremesa	Cine	Cine	Cultura	Portatiles	Trabajo	Fondos pantalla	Marketing web
Pdas	Horóscopo	Logos y tonos	Quiniela	Humor	Correo	El tiempo	Paginas amarillas	Traductor	Humor
	Plantillas gratis	Buscar trabajo	Chistes	Teclas rapidas	Juegos gratis	Restaurantes	Paginas	Webmasters

RECURSOS PARA WEBMASTER. ASP

Conexión a una base de datos