faz assim:
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= " & server.mappath("bdintranet.mdb")
ComandoSQL = "SELECT * FROM email WHERE nome LIKE '%" + Replace(Request.Form("nome"), "'", "''") + "%'"
Set bd = Conexao.Execute(ComandoSQL)
Do while not bd.Eof
nome = bd("nome")
email = bd("email")
%>
<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%Response.Write nome & "<br>"%> </font></strong></font></div>
<%bd.MoveNext
loop
%>