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>

Fotoviaje	Freecards	Musica	Quiniela	El tiempo	Escaneres	Ordenadores	Vuelos baratos	Casas rurales	Futbol
Mapas	Marketing	Códigos	Intercambios	Cine	Cultura	Perifericos	Astrología	Postales gratis	Pisos
Pdas	Horóscopo	Logos y tonos	Buscar Trabajo	Humor	Metatags	Fondos	Seomaker	Traductor	Humor
	Chat	Directorio web	Hoteles baratos	Mapa web	Mapa I	Diseño Web	Paginas	Añadir web

RECURSOS PARA WEBMASTER. ASP

Conexión a una base de datos