Necesitamos saber que es lo que causa el error si el correo o la consulta a la base de datos.
Dejas solo este codigo en una pagina para probar.
Primero vamos a comprobar la base de datos:
<%
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("datos.mdb")&";"
SQL="SELECT * FROM mensajes where correo="
[email protected]" "
' Esta linea pon el correo de alguien que sabes que estas seguro en tu base de datos
'Es para comprobar que la consulta funciona
rs.Open SQL, oConn,1,2
do while not rs.eof
response.write (rs("nombre") & rs("clave1") &"<br>")
Esto te deberia mostrar en pantalla los datos del email correspondiente
rs.movenext
loop
rs.close
%>
Si te muestra el dato en pantalla la base de datos esta OK, procederemos con el EMAIL