Para el acceso con clave:
http://www.forosdelweb.com/f15/informe-accesos-buenos-malos-funciona-168763/
Para el resto:
Yo empecé a usar ASP con este mini-manual:
Abrir bases de datos: 'Creamos las variables para guardar los datos
Dim conexion,tabla
'Creamos la conexion a la BD
Set conexion=Server.CreateObject("adodb.connection")
'Abrimos la conexión con el driver de access (No es necesario hacer DSN)
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-base.mdb")
'Le decimos que abra la tabla que queremos usar para la base
Set tabla=Server.CreateObject("adodb.recordset")
'hacer la selección de la tabla ordenándola por fecha descendente. Aquí es donde se pone la sentencia que va a hacer la consulta, en tu caso, entre fecha X y fecha Y. Si no sabes cómo hacer la sentencia, tienes dos opciones: 1) hacerla con access y ojearla o buscar/preguntar por el foro.
ssql = "SELECT * FROM tabla ORDER BY fecha desc;"
'aquí abre la tabla ordenándola
Tabla.Open ssql,Conexion
Mostrar bases de datos:
<table border="0" width="280">
'Hasta que la tabla no acabe
do while not tabla.eof
'El response.write se usa para escribir código dentro del ASP
'(Todo lo que escribamos no puede llevar comillas)
'(El principio del response se define abriendo comillas y para cerrarlo cerrando las
'comillas)
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>De</u>: <b><a href=mailto:" & tabla ("mail") & ">" & tabla ("nombre") & "</a></b></font></td></tr>"
response.write "<tr><td valign=top align=left><font face=Arial size=1 color=#000000><u>Mensaje</u>:<br><b>" & tabla ("comentario") & "</b></font></td></tr>"
'Nos vamos al registro siguiente de la tabla
tabla.movenext
'Hacemos el loop
loop
'Cerramos la tabla de HTML
response.write "</table>"
'Cerramos la tabla de la base de datos
tabla.close
'Cerramos la conexión a la BD
conexion.close
Meter registros en la BD:
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
Set tabla=Server.CreateObject("adodb.recordset")
'Hay que poner lo de ,3,3 para que podamos escribir en la BD
Tabla.Open "tabla",Conexion,3,3
'Le decimos a la BD que vamos a meter cosas
tabla.addnew
'Ahora sacamos del formulario lo que vamos a meter y le decimos en qué campos
'de la tabla vamos a hacerlo
tabla ("titulo") = request.form ("titulo")
tabla ("direccion") = request.form ("direccion")
tabla ("descripcion") = request.form ("descripcion")
tabla ("imagen") = request.form ("imagen")
tabla ("id") = request.form ("id")
tabla ("pass") = request.form ("pass")
'Hacemos que la base se actualice
tabla.update
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Borrar registros de la base de datos:
Dim conexion,tabla,ide
'Recogemos de un formulario el campo ID y lo guardamos en una variable
ide = Request.form("id")
Set conexion=Server.CreateObject("adodb.connection")
conexion.Open"driver={Microsoft Access Driver (*.mdb)}; ; DBQ="+server.mappath ("nombre-de-la-bd.mdb")
'Hacemos el SQl para borrar los registros de la BD los cuales el ID sea igual al ID
'que hemos recogido del formulario
sSQL = "delete * from tabla where nombre like '" & ide & "';"
'Ejecutamos el SQL en la BD
conexion.execute (sSQL)
response.write "Se han borrado todos los mensajes <br><center><a href=# onclick=window.close()>Pulsa aqui para cerrar esta ventana</a></center>"
'Cerramos la tabla de la BD
tabla.close
'Cerramos la conexión a la BD
conexion.close
Espero que te sirva, con esto y algo de instinto, podrás hacer lo que necesites. Y si no, preguntas, que siempre hay alguien en el foro dispuesto a ayudarte. 
