0
<%
	' Create an instance of the NewMail object.
	Set objCDOMail = Server.CreateObject("CDO.Message")
	
	' Set the properties of the object
		objCDOMail.From = "Esnatech<marketing@esna.com>"
		strTo="amandaz@esna.com"
		strSubject = "Contact Me Submission Received From:"
		strBody="The following person would like more information" & vbCrLf  & vbCrLf
		strBody= strBody & "Name:" & fullname & vbCrLf & vbCrLf
		strBody= strBody & "Company:" & company & vbCrLf & vbCrLf
		strBody= strBody & "Email:" & email & vbCrLf & vbCrLf
		strBody= strBody & "Telephone:" & telephone & vbCrLf & vbCrLf
		strBody= strBody & "Interest:" & interest & vbCrLf & vbCrLf
	objCDOMail.To = strTo
	objCDOMail.Subject = strSubject	
	objCDOMail.TextBody = strBody
	objCDOMail.Send
	Set objCDOMail = Server.CreateObject("CDO.Message")
	objCDOMail.From = "Esnatech<marketing@esna.com>"
		strTo= email
		strSubject = "We received your Contact Me submission (" & email & ")"
		strBody="Someone from esnatech will contact you shortly and provide you with more information" & vbCrLf & vbCrLf
	objCDOMail.To = strTo
	objCDOMail.Subject = strSubject
	objCDOMail.TextBody = strBody
	objCDOMail.Send
	Set objCDOMail = Nothing
	Response.Redirect("http://www.esnatech.com")
	%>

Please tell me how I need to fix this? I keep getting an error.

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/forms/calltoaction.asp, line 134

800401f3

Edited by Ezzaral: n/a

2
Contributors
1
Reply
2
Views
6 Years
Discussion Span
Last Post by jcarbillon
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.