Aca te paso el bloque ese de codigo, para ubicarte un poco mas.
Código:
<%end if
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/dirdb/librovisitas.mdb")
set rs=createobject("ADODB.Recordset")
'rs.CursorType = adOpenKeyset
'rs.LockType = adLockOptimistic
rs.open "select * from visitas order by id desc",conn
if not rs.EOF then
do while not rs.EOF%>
Saludos
AlvAro