Generar Pagina de Contactos con base Access

[u_goldman]

Bueno, existen miles de ellos, básicamente lo que tienes que hacer es crear un recordset, iterarlo e imprimir el HTML, asumiendo que ya tienes una conexion activa llamada ObjConn:

Código:

strSQL = "SELECT * FROM empleados"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, ObjConn, 3, 3
if not rs.EOF then
  while not rs.EOF
   %>
   <div><%=rs("nombre")%></div>
   <div><%=rs("anexo")%></div>
   <div><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></div>
   <div><img src="imagenes/<%=rs("foto")%> alt="foto" /></div>
   <%
    rs.MoveNext
  wend
else
  'no se encontraron registros
end if
rs.Close()
Set rs = Nothing
ObjConn.Close()
Set ObjConn = Nothing

Saludos