El siguiente codigo trabaja perfectamente con la BD contactosMMlk.mdb y la tabla contactospers. Saludos.......
<%@ LANGUAGE="VBScript" %>
<%Set cnnt = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cnnt.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("contactosmmlk.mdb")%>
<%rs.Open "Select * from contactospers",cnnt,2,3,1 %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<i>
<select name="selection" size="1">
<%i=1%>
<%do while not rs.eof and (i < 9)%>
<option value=<%=rs("nombre")%>><i><%=rs("nombre")%></i></option>
<%i=i+1%>
<%rs.movenext%>
<%loop%>
</select>
</i>
</body>
</html>
<% rs.close %>
<% cnnt.close %>
<% set cnnt=nothing %>