title: ASP Contact form error Server object error 'ASP 0177 : 800401f3'
body: <p>One of my websites contact/reservations form has suddenly stopped working and I now receive the following error.</p>
  
  <pre>
  Server object error 'ASP 0177 : 800401f3' 
  
  Server.CreateObject Failed 
  
  /contact2.asp, line 51
  </pre>
  
  <p>I've done a bit of research and it seems to relate to classic ASP commands but
  my knowledge of ASP is limited.</p>
  
  <p>Here is the full code:-</p>
  
  <pre class="lang-vb prettyprint-override"><code>&lt;%
  
  name = request.form("name")
  email = request.form("email")
  phone = request.form("phone")
  guests = request.form("guests")
  datum2 = request.form("datum2")
  info = request.form("info")
  time_hour = request.form.item("time_hour")
  time_minute = request.form.item("time_minute")
  moda_event = request.form.item("modaEvent")
  sign_up = request.form.item("signup")
  
  If name="" or email="" Then
  url = "reservations.asp?reqd=* indicates required field&amp;name=" &amp; mname    &amp; "&amp;email=" &amp; memail
  If name="" Then 
  url = url &amp; "&amp;mname=*"
  End if
  
  If email="" Then
  url = url &amp; "&amp;memail=*"
  End if
  
  response.redirect url &amp; "&amp;foobar=foobar#form"
  response.end
  End if
  
  
           Dim objCDONTS                 ' Email object
                   Dim strFromName               ' From persons' real name
                   Dim strFromEmail, strToEmail  ' Email addresses
                   Dim strSubject, strName, strPhone, strEmail, strGuests, strDate, strHour, strMinute, strEvent, strInfo, strSignup 'Message
                   Dim misccompo       
  
  
           strSubject    = "Reservation Form"
           strFromName   = Trim(Request.Form("name"))
           strFromEmail  = Trim(Request.Form("email"))
           strToEmail    = "reservations@modarestaurant.co.uk"
           strName       = Trim(Request.Form("name")) 
           strPhone      = Trim(Request.Form("phone"))
           strEmail  = Trim(Request.Form("email")) 
           strGuests     = Trim(Request.Form("guests")) 
           strDate       = Trim(Request.Form("datum2")) 
           strHour       = Trim(Request.Form.Item("time_hour")) 
           strMinute     = Trim(Request.Form.Item("time_minute")) 
           strEvent      = Trim(Request.Form.Item("moda_event")) 
           strInfo       = Trim(Request.Form("info"))
           strSignup = Trim(Request.Form.Item("signup"))  
  
  Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
                           objCDONTS.From    = strFromName &amp; " &lt;" &amp;   strFromEmail &amp; "&gt;"
                           objCDONTS.To      = strToEmail
                           objCDONTS.Subject = strSubject
               objCDONTS.Body    = "--------------------------------------" &amp; vbcrlf &amp; vbcrlf &amp; "Name: " &amp; strName &amp; vbcrlf &amp; "Contact Number: " &amp; strPhone &amp; vbcrlf &amp; "Email Address: " &amp; strEmail &amp; vbcrlf &amp; "No. of Guests: " &amp; strGuests &amp; vbcrlf &amp; "Date: " &amp; strDate &amp; vbcrlf &amp; "Time: " &amp; strHour &amp; ":" &amp; strMinute &amp; vbcrlf &amp; "Event: " &amp; strEvent &amp; vbcrlf &amp; "Additional Info: " &amp; vbcrlf &amp; strInfo &amp; vbcrlf &amp; "Newsletter Signup: " &amp; strSignup &amp;vbcrlf  &amp; "--------------------------------------------------------------" &amp; vbcrlf &amp; "MESSAGE ENDS: End of info"
                           objCDONTS.Send
                           Set objCDONTS = Nothing
  
  response.redirect "thank-you.asp"
  response.end
  %&gt;
  </code></pre>
  
  <p>The line 51 error is this line;</p>
  
  <pre class="lang-vb prettyprint-override"><code>Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
  </code></pre>
  
  <p>Any help would be greatly appreciated.</p>