Mil gracias Trasgukabi. utilice este codigo e instale CDONTS.DLL y configure el SMTP y hasta el momento va todo bien, al menos coloca el correo el inetpub (ya que estoy trabajando de forma local)
<%
'Declaramos las variables a usar
Dim MyCDO
Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
Set MyCDO = Server.CreateObject("CDONTS.NewMail")
If IsObject (MyCDO) Then
MyCDO.From = request.Form("email")
MyCDO.To = "
[email protected]"
MyCDO.Subject = "Pedido"
TBdy = Now() & CR & CR
MyCDO.Body = TBdy
MyCDO.Send
Set MyCDO = nothing
Else
Response.Write("Message not sent")
End If
Response.Write "<div align=center><b>Envío realizado correctamente.<br>"
Response.Write "Ha enviado el email a todos los de REGISTRO.MDB<br></b>"
Response.Write "<br><br><div align=center><a href=javascript
:window.close(); title='CERRAR VENTANA'><b><font face='Flat Brush' color=#008080 style=font-size:10pt><u>CERRAR VENTANA</u></font></b></em></a></span></div>"
%>