Volver al Programación / Codificación foro

Enviar a un amigo script

  • madamladybug
  • Born
  • Born
  • No Avatar
  • Registrado: Ago 19, 2003
  • Mensajes: 1
  • Loc: Dallas, TX
  • Status: Offline

Nota Agosto 19th, 2003, 2:46 pm

Problemas con mi Enviar a un amigo script. Conseguir un error msg "Error al enviar el SendingAn ha sido enviado a scarlet@learnstar.com }~~..:" Tal vez su forma thats tener el problema o tal vez su servidor. Por favor, ayuda. Gracias :shock:

Código: [ Select ]
<%

' email values to set in form
'--------------------------------
' SendersName
' SendersEmail
' EmailSubject
' EmailRecipient
' message-
' thanksPage




' set up email values
sendersName =Request.Form("SendersName")
sendersEmail =Request.Form("SendersEmail")
if sendersName="" then sendersName=sendersEmail

EmailSubject=Request.Form("EmailSubject")
if EmailSubject="" then EmailSubject="No Subject"

'I hardcode the email recipient but you might want this flexibility
EmailRecipient=Request.Form("EmailRecipient") ' required


if EmailRecipient="" then
    response.Write("<html><body>Sorry, recipient required!</body></html>")
    response.End
end if

message=Request.Form("message")
if message="" then message="No message"



' create email
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.FROM = sendersName & "<" & sendersEmail & ">"
objNewMail.TO = EmailRecipient
objNewMail.Subject = Request.Form("EmailSubject")
objNewMail.Body = message & vbcrlf & vbcrlf & "Host:" & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Referer:" & request.ServerVariables("HTTP_REFERER")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 1

' send email
objNewMail.Send
Set objNewMail = Nothing

response.write(" Email has been sent to***:" & EmailRecipient )
' show thankyou page
'if not request("thanksPage")="" then
    'response.Redirect(request("thanksPage"))
'    response.write("Thank you for sending e-mail to:" & EmailRecipient )

'else
    'response.write("<html><body>Thank You!</body></html>")
    'response.write(" Email has been sent to:" & EmailRecipient )
'end if    
response.End

%>
  1. <%
  3. ' email values to set in form
  4. '--------------------------------
  5. ' SendersName
  6. ' SendersEmail
  7. ' EmailSubject
  8. ' EmailRecipient
  9. ' message-
  10. ' thanksPage
  15. ' set up email values
  16. sendersName =Request.Form("SendersName")
  17. sendersEmail =Request.Form("SendersEmail")
  18. if sendersName="" then sendersName=sendersEmail
  20. EmailSubject=Request.Form("EmailSubject")
  21. if EmailSubject="" then EmailSubject="No Subject"
  23. 'I hardcode the email recipient but you might want this flexibility
  24. EmailRecipient=Request.Form("EmailRecipient") ' required
  27. if EmailRecipient="" then
  28.     response.Write("<html><body>Sorry, recipient required!</body></html>")
  29.     response.End
  30. end if
  32. message=Request.Form("message")
  33. if message="" then message="No message"
  37. ' create email
  38. Set objNewMail = Server.CreateObject("CDONTS.NewMail")
  40. objNewMail.FROM = sendersName & "<" & sendersEmail & ">"
  41. objNewMail.TO = EmailRecipient
  42. objNewMail.Subject = Request.Form("EmailSubject")
  43. objNewMail.Body = message & vbcrlf & vbcrlf & "Host:" & request.ServerVariables("REMOTE_ADDR") & vbcrlf & "Referer:" & request.ServerVariables("HTTP_REFERER")
  44. objNewMail.BodyFormat = 1
  45. objNewMail.MailFormat = 1
  47. ' send email
  48. objNewMail.Send
  49. Set objNewMail = Nothing
  51. response.write(" Email has been sent to***:" & EmailRecipient )
  52. ' show thankyou page
  53. 'if not request("thanksPage")="" then
  54.     'response.Redirect(request("thanksPage"))
  55. '    response.write("Thank you for sending e-mail to:" & EmailRecipient )
  57. 'else
  58.     'response.write("<html><body>Thank You!</body></html>")
  59.     'response.write(" Email has been sent to:" & EmailRecipient )
  60. 'end if    
  61. response.End
  63. %>
  • Anonymous
  • Bot
  • No Avatar
  • Registrado: 25 Feb 2008
  • Mensajes: ?
  • Loc: Ozzuland
  • Status: Online

Nota Agosto 19th, 2003, 2:46 pm

  • Bigwebmaster
  • Site Admin
  • Site Admin
  • Avatar de Usuario
  • Registrado: Dic 20, 2002
  • Mensajes: 8925
  • Loc: Seattle, WA & Phoenix, AZ
  • Status: Offline

Nota Septiembre 10th, 2003, 4:18 am

Al parecer, nadie ha respondido a ayudarle. ¿Tiene usted su configuración del servidor de correo? ¿Es usted capaz de utilizar el componente CDONTS? Veo en su secuencia de comandos que está utilizando y que yo no soy positivo, tendrá que instala por defecto. Creo que su guión está muy bien, a mí me suena como el servidor de correo.

Su salida de la secuencia de comandos es la siguiente:

"Error SendingAn correo electrónico ha sido enviado a }~~..: escarlata @ learnstar. com "

Esto demuestra que en realidad llegó a la línea en el guión que dice:

"Un correo electrónico ha sido enviado a }~~..: scarlet@learnstar.com"

Sin embargo parece que las palabras "Error al enviar" fue añadiendo al comienzo de la línea, y estoy adivinando que tiene algo que ver con CDONTS. De todas formas no estoy seguro de si se han resuelto este problema por ahora, pero sería curioso si alguna vez lo hizo, y si no tal vez algunas de mis sugerencias y hará lo posible en la dirección correcta.
Ozzu Hosting - Want your website on a fast server like Ozzu?

Página 1 de 1

Publicar Información

  • Total de mensajes en este tema: 2 mensajes
  • Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 225 invitados
  • No puede abrir nuevos temas en este Foro
  • No puede responder a temas en este Foro
  • No puede editar sus mensajes en este Foro
  • No puede borrar sus mensajes en este Foro
  • No puede enviar adjuntos en este Foro
 
 

© 2011 Unmelted, LLC. Ozzu® es una marca registrada de Unmelted, LLC