pues bien tengo un formulario de contacto, (es este -
http://www.miborrego.com/contacto/) y tengo un problema, y eske se me keda ''colgado'' cuando hago clic en enviar, como si no conectara con el server, en el .asp tengo este código:
<%
'
'
' 1_ Destino = "
[email protected]"
' 2_ servidor = "www.miborrego.com"
' 3_ titulo = "Contacto"
'
'
Destino = "
[email protected]"
servidor = "www.miborrego.com"
titulo = "Formulario de contacto"
'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
Origen = Request("email")
nombre = Request("nombre")
empresa = Request("empresa")
Mensaje = Request("mensaje")
'Creamos una instancia del objeto ASPMAIL
Set Mail = Server.CreateObject("Persits.MailSender")
' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Trabajo en la empresa: "
strBody = strBody & "<b>" & empresa & "</b><br><hr><br>"
strBody = strBody & "Mi mensaje es: <br>"
strBody = strBody & Mensaje & chr(10)
strBody = strBody & "</font>"
'Asignamos las propiedades al objeto con ASPMAIL
Mail.Host = servidor
Mail.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
Mail.From = "
[email protected]"
Mail.FromName = Email ' Opcional
Mail.Subject = titulo
Mail.Body = strBody
Mail.IsHTML = True
Mail.AddAddress Destino
On Error Resume Next
Mail.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "popup.mensaje=Error, envíelo mas tarde " & Err.Description
Else
Response.Write "popup.mensaje=Mensaje enviado correctamente."
End If
'Destruimos el objeto con aspmail
Set Mail = Nothing
%>
Esta bien no?
haber si alguien me exa el cable k me ase falta..gracias de ante mano..
PD: el codigo k tengo en el .swf se supone k esta bien... :S