Problemas al mandar un email con CDO

[HoP]

Hola a todos!!!

Vereis tengo el siguiente problema:

Tengo una página flash con muchos checkboxes y un boton para enviar un email

Cuando lo pulso paso todos los datos al archivo asp

Pues bien, mediante CDO consigo enviar correctamente un email con los datos seleccionados, lo sé por que lo probé en local, pero a la hora de subirlo a mi servidor no me llega ningun email.

El servidor tiene STMP y actualmente tiene paginas usando ese sistema de envío

Que puede estar sucediendo??

Gracias a todos pero ayudadme por favoooor (gran página)

[Shiryu_Libra]

Hop, verificaste que esten llegando los datos al envio de correo??.... tu codigo de envio de correo... don'ta??

[HoP]

He estado leyendo mas foros, habia uno similar al mio pero no habia solucion asi que siento haber abierto esta linea pero ya que estamos...

He metido mis archivos en localhost, probado y funciona(por cierto, no es ninguna direccion yahoo o hotmail o gmail)

Pero cuando lo subo a mi servidor no me llega nada, ni me da error ni nada

[Shiryu_Libra]

creo que no me entendiste

tienes estos datos de ciertos inputs

<input type="text" name="txt1" value="teoria"

y los mandas a tu pagina que se encargara de el envio del mail

texto1=request("txt1")

ahora la pregunta era que si te llegaban datos

response.write texto1
response.end

tambien, despues de cargar todos los datos en el codigo de envio, puedes anexar una pregunta

if Err=0 then
mail.send
else
response.write "error al enviar <br/>" & Err
end if

[HoP]

Si, he comprobado y tengo todos los datos en el body(variable que asignaré a TextBody)

La comprobacion de Err donde la hago? lo he puesto justo antes de enviar

[Shiryu_Libra]

algo similar a esto

dim obj
Set obj=Server.CreateObject("CDO.Message")
obj.From="[email protected]"
obj.To="[email protected]"
obj.Subject="Mas pruebas de correos mediante CDO del IIS"
obj.HtmlBody="Esperemos que funcione<br />Saludos<br />"
obj.Send
if Err=0 then
response.Write "enviado..."
else
response.Write "no se envio...<br/>" & Err
end if
set obj=nothing
response.Flush()
%>