ASP Контактная форма Ошибка объекта сервера 'ASP 0177: 800401f3'

Question

Я взял простую форму из сети и поместил ее на веб-сайт для использования в качестве контактной формы, все хорошо, все выглядит хорошо, но когда я отправляю форму, я получаю эту ошибку. Ошибка объекта сервера «ASP 0177: 800401f3»

Server.CreateObject Failed

/ new / contactusprocess.asp, строка 31

800401f3

---

Это код

<%
Dim error
error = 0
For Each f In Request.Form
  If Request.Form(f) = "" Then 
    error = 1
  End If
Next
If error=1 Then
  response.redirect "error.html"
Else
Dim f, emsg, mail_to, r, o, c, other
fline = "_______________________________________________________________________"& vbNewLine   
hline = vbNewLine & "_____________________________________"& vbNewLine   
emsg = ""

For Each f In Request.Form
   If mid(f,1,1)<>"S"  = True Then 'do not save if input name starts with S
     emsg  = emsg & f & " = " &  Trim(Request.Form(f)) & hline
   End If
Next

Set objNewMail = Server.CreateObject("CDONTS.NewMail")
    objNewMail.From = Request("Email Address")
    objNewMail.Subject = "Message from contact page (version: 1.0)"
    objNewMail.To = mail_to
    objNewMail.Body = emsg & fline
    objNewMail.Send
    Set objNewMail = Nothing

response.redirect "thankyou.html"
End if
%>

Заранее спасибо

Answer 1

На сервере, на котором вы находитесь, нет библиотек CDONTS. Предложите вместо этого использовать CDO.Message. Убедитесь, что ваш хост поддерживает отправку электронной почты с классического ASP.

Замените ваш код (от строки, содержащей CDONTS, до +, включая Response.Redirect) этим кодом.

   Dim  to, from, subj, body
   from = Request("Email Address")
   subj = "Message from contact page (version: 1.0)"

   SendMail(subj, from, mail_to, emsg & fline)
   Response.Redirect "thankyou.html"
End If

'******* a method to encapsulate our emailing functionality
Sub SendMail(subject, from, to, body)
    Dim sConfURL, cdoConfig, cdoMessage 

    Set cdoConfig = CreateObject("CDO.Configuration") 
    sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
    With cdoConfig.Fields 
        .Item(sConfURL & "sendusing") = 2
        ,Item(sConfURL & "smtpserver") = "localhost"
        .Item(sConfURL & "smtpserverport") = 25
        .Update 
    End With

    Set cdoMessage = CreateObject("CDO.Message") 

    With cdoMessage
        Set .Configuration = cdoConfig 'may have to remove the Set if an error here.
        .From = from
        .To = to
        .Subject = subject
        .TextBody = body
        .Send
    End With

    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 
End Sub