buenas a todos bueno mi caso es el asp de mi formulario no me funciona bien pasa que este asp estaba en otro server www.peruforless.com y lo jale a otro server www.cat-travel.com que tb acepta asp hasta alli todo bien , este formulario al dar ne submit tiene que llegar a 4 correos que aun no me sale:
[email protected]
[email protected]
[email protected]
[email protected]
el formulario esta en linea en la siguiente url
http://www.cat-travel.com/contact.htm
el error que me sale es el siguiente:
jmail.SMTPMail error '8000ffff'
Error: 550 The following recipients could not be sent to:
/thankyou_page.asp, line 241
este es el asp que conecta:
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="21" ><p style="margin-top: 0; margin-bottom: 0"><span style="font-size: 14; font-family: Verdana, Arial, Helvetica, sans-serif;"><b>Thank you. We will contact you ASAP. If you haven’t heard back from a CAT - Class Adventure Travel team member within 24 hours, please feel free to contact us at anytime toll-free at 1.877.269.0309.</b></span><br>
<br>
<%
'on error resume next
Dim bodytext, pagename
pagename=request("pagename")
'if pagename="" THEN pagename="contact form"
'thankspage="contactus_language_thanks.htm"
'bodytext="Form Variables:" & vbcrlf
bodytext_peruforless = "<font face=Verdana, Arial, Helvetica, sans-serif><h3>CAT New Request Group Departures - " & request.Form("Contact Person Name") & "</h3></font><p><font pointsize=8 face=Arial, Helvetica, sans-serif>"
bodytext_message = "<p><font face=Verdana, Arial, Helvetica, sans-serif><small>Following message has be sent<br><br>"
for i = 1 to Request.Form.count()
bodytext_peruforless = bodytext_peruforless & "<b>" & Request.Form.key(i) & ": </b>" & Request.Form.item(i) & "<br>"
bodytext_message =bodytext_message & Request.Form.key(i) & ": " & Request.Form.item(i) & "<br>"
next
bodytext_peruforless = bodytext_peruforless & "</font></p>"
bodytext_message = bodytext_message & "</small></font></p>"
response.Write(bodytext_message)
'bodytext_recipient = "<font face=Arial, Helvetica, sans-serif>Dear " & request.Form("Contact Person Name") & ",<br>"
'bodytext_recipient = bodytext_recipient & "Thank you for filling out the form at Peru for Less. <br>"
'bodytext_recipient = bodytext_recipient & "Please visit us online for all your travel needs http://www.peruforless.com or email us at [email protected]." & vbcrlf & vbcrlf
'bodytext_recipient = bodytext_recipient & "To sign up for your complimentary course use coupon # 3203-04 when you fill out the form at http://multilingualcenter.com/beca.htm." & vbcrlf & vbcrlf
'bodytext_recipient = bodytext_recipient & "We will e-mail you confirmation, the starting date of your course and the phone number to access the course." & vbcrlf & vbcrlf
'bodytext_recipient = bodytext_recipient & "The Peru For Less Team"
' response.Write(bodytext_recipient)
'bodytext=bodytext & vbcrlf & "Server Variables:" & vbcrlf
'For each key in request.servervariables
' bodytext=bodytext & key & ":" & request.servervariables(key) & vbcrlf
'NEXT
Dim sender_email
sender_email=Trim(Request.Form("Contact Person e-mail"))
IF len(sender_email)=0 THEN
sender_email="TheUnknown@Tourist"
ElseIF InStr(sender_email,"@")=0 THEN
sender_email="TheUnknown@Tourist"
END IF
Dim email_length
email_length=Len(sender_email)
Dim atSymbol
atSymbol=Instr(sender_email,"@")
atSymbol=atSymbol
If atSymbol=email_length Then
sender_email="TheUnknown@Tourist"
End if
If atSymbol=1 Then
sender_email="TheUnknown@Tourist"
End if
SendJMail sender_email, request.Form("Contact Person Name"), "[email protected]", "CAT website", "CAT New Request CAT - " & request.Form("Contact Person Name"), "Thank You from CAT!", bodytext_peruforless, bodytext_recipient
'Response.redirect "http://www.cat-travel.com"
Function SendJMail(sender, senderName, recipient, recipientName, subjectPFL, subjectRecipient, bodyPFL, bodyRecipient)
'Dim JmailRecipient
'Set JMailRecipient = Server.CreateObject("JMail.SMTPMail")
'JMailRecipient.ClearRecipients()
'JMailRecipient.ServerAddress = "63.246.11.160"
'JMailRecipient.Sender = recipient
'JMailRecipient.SenderName = recipientName
'JMailRecipient.Subject = subjectRecipient
'JMailRecipient.AddRecipientEx sender,senderName
'JMailRecipient.HTMLBody = bodyRecipient
'JMailRecipient.Execute
'Set JmailRecipient=nothing
Dim Jmail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ClearRecipients()
JMail.ServerAddress = "63.246.11.160"
JMail.Sender = sender
JMail.SenderName = "CAT New Request - " & senderName
JMail.Subject = subjectPFL
JMail.AddRecipientEx recipient,recipientName
JMail.AddRecipientCC "[email protected]"
JMail.HTMLBody = bodyPFL
JMail.Execute
Set Jmail=nothing
End Function
%>
</p>
<p class="content"> </p></td>
</tr>
</table>
<div align="center"><br>
<strong><br>
<span class="txt_naran_14">US Office:</span><span class="content"><br>
</span></strong><span class="content"> 420 Throckmorton, Suite 1110<br>
Fort Worth, TX 76102<br>
Ph: (877) 269-0309-toll free; (817) 886-0080<strong><br>
</strong>Fax: (571) 323-0753</span><br>
</div></td>
</tr>
</table>
ayudenme porfa, gracias.
