problema con aspmail

[tocalasam]

creo un form con un solo campo llamado fname y lo quiero insertar en una base de datos que se llama nombres.mdb, y que tienen una tabla que tb se llama nombres.
El problme vine cuando quiero enviar esta info x correo mediante aspmail.

Este es el codigo:

Código:

<%
' Get the value of the field fname in the form above into a variable we declare
dim fname
fname = Request.Form("fname")

Set myMail = Server.CreateObject ("SMTPsvg.Mailer")
myMail.Subject = "Prueba aspmail"
myMail.From = "[email protected]"
myMail.To = "[email protected]"
myMail.TextBody = "Your first name is: " & fname
myMail.RemoteHost = "mail.midominio.com"
myMail.Send
set myMail = nothing

' this is a connection to an Access database
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "/cgi-bin/nombres.mdb"

' This is the SQL
sql="INSERT INTO nombres (firstName)"
sql=sql & " VALUES "
sql=sql & "('" & fname  & "')"

' This execute the sql anc close the connection
on error resume next
conn.Execute sql,recaffected
conn.close
%>

¿sabeis que hago mal?

[JuanRAPerez]

y el problema es??

[tocalasam]

que no me envia el email ni introduce el registro en la base de datos.

[JuanRAPerez]

te envia algun error o no envia error?

contame eso quiero ayudarte

[allhen]

aqui el codigo !!

solo reemplaza.. dominio y cuenta q tu has creado en tu host !!

Código:

 
<%
varF = request.form("quienloenvia")
varMMS = request.form("mensaje")
varSn = request.form("titulo")


Dim objEmail
Set objEmail = Server.CreateObject("Persits.MailSender")
objEmail.Username = "[email protected]"
objEmail.Password = "xsZYTokKv3dQe7A"
objEmail.Host = "mail.allhen.com"
objEmail.From = "[email protected]"
objEmail.FromName = request.form("nombreDeQuienLoEnvia")
objEmail.AddAddress request.form("destinatario")
objEmail.Subject = ""&varSn&" aqui el subject ..."
ObjEmail.IsHTML = True
objEmail.Body = "Mensaje:<br> "&varMMS&" <br><br><img src=""http://tudominio.com/fotocualquiera.jpg"" border=""0"">"
objEmail.Send
Set objEmail = Nothing

response.write = "Mail enviado a : """&varF&""" <br> "
%>