<%
' 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