envair form x mail y guardar datos en bd

[pablinff]

Podrías poner que tipo de error te dá, y te recomiendo que en vez de CDONTS utilices CDOSys para enviar emails.
Así lo harías con CDOSys:

Código:

<%
Set oMail = Server.CreateObject("CDO.Message") 
		Set iConf = Server.CreateObject("CDO.Configuration") 
		Set Flds = iConf.Fields 
		
		' Se configuran los parametros necesarios para el envío
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		' Se completan los datos del usuario y la contraseña necesarios para el envio
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 'usuario smtp
		iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "sinonosillas"  'password para STMP
		iConf.Fields.Update
		' Se asignan las propiedades de configuración al objeto
		Set oMail.Configuration = iConf 
	
		' Destinatario del correo
                 oMail.To = "[email protected]"
		' Remitente del correo
		oMail.From = "[email protected]"
		' Subject o asunto
		oMail.Subject = "Titulo del mensaje"
		' Cuerpo del mensaje
		oMail.TextBody = "Cuerpo del mensaje"
                 ' Se envía el correo
		oMail.Send
		' Se destruyen los objetos
		Set iConf = Nothing 
		Set Flds = Nothing

%>

Saludos!