Set Mail=CreateObject("CDO.Message")

Hi Experts,

I have the following page.http://www.caf-fca.org/en/contact/

It was hosted on a windows 2000 Server and I was able to receive emails.  The code is working but I'M NOT RECEIVING ANY EMAILS... Should I need to installed anything on the server.

It's  Windows 2008 Servers.  I've have the code CDO.MESSAGE to send an online forms.

 

*******************************************
// Front CODE 
*******************************************

<form method="post" action="../who_we_are/thankyou.asp" onSubmit="return checkForm(this);">
<table width="98%" border="0" cellspacing="1" cellpadding="1" align="center">
 <tr bgcolor="#4775a3">
   <td colspan="2"><div align="left"><strong><font color="#FFFFFF" size="+1">*</font> <font color="#FFFFFF"> = Required field</font></strong></div></td>
 </tr>
 <tr bgcolor="#ccd9e5">
   <td width="36%" class="byline"><div align="right"> Send this e-mail to:</div></td>
   <td width="64%" class="byline"><select size="1" name="to" class="formfield">
                <option selected value="info@caf-fca.org">General Enquiries</option>
                <option value="margo_royce@caf-fca.org">Marketing, Communications & Media Enquiries</option>
 			    <option value="margo_royce@caf-fca.org">CAF-FCA Conference</option>
                <option value="elie_azzi@caf-fca.org">Information Technology</option>
                <option value="emily_arrowsmith@caf-fca.org">Programs & Corporate Development</option>						
              </select></td>
 </tr>
 
 <tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right"> Attention: </div></td>
   <td><input type="text" name="attn" size="51">
   <INPUT TYPE="HIDDEN" name="note" value="Email sent from CAF-FCA Web site - http://www.caf-fca.org/english/contact.asp"></td>
 </tr>
 
 <tr bgcolor="#ccd9e5">
   <td class="byline"><div align="right"> Preferred contact method:</div></td>
   <td><select size="1" name="method" class="formfield">
                <option selected value="email">by e-mail</option>
                <option value="phone">by telephone</option>
                <option value="do not contact me">do not contact me</option>
              </select></td>
 </tr>
 
 <tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right">Your name: </div></td>
   <td><select name="salutation" size="1" id="MyContactInfo_PrefixList" size="15">
     <option selected>Select One</option>
     <option value="Mr.">Mr.</option>
     <option value="Mrs.">Mrs.</option>
     <option value="Ms.">Ms.</option>
     <option value="Dr.">Dr.</option>
    </select><input type="text" name="name" size="35"></td>
 </tr>
 
<tr bgcolor="#ccd9e5">
   <td width="36%" class="byline"><div align="right"><font size="+1" color="#FF0000"><strong>*</strong></font> Your Email:</div></td>
   <td width="64%"><input type="text" name="From" size="51"></td>
 </tr> 

<tr bgcolor="#DDDDDD">
   <td class="byline"><div align="right">Your telephone: </div></td>
   <td>( <input name="phone1" id="phone1" value="" size="3" maxlength="3"> 
        )  
        <input name="phone2" id="phone2" value="" size="3" maxlength="3"> 
        -  
        <input name="phone3" id="phone3" value="" size="4" maxlength="4"> 
        Ext.:
          [ <input name="phone4" id="phone4" value="" size="6" maxlength="6"> 
          ]  </td>
 </tr>


<tr bgcolor="#ccd9e5">
   <td class="byline" valign="top"><div align="right"> What can we do for you?</div></td>
   <td><textarea cols="40" rows="5" name="message"></textarea></td>
 </tr>
  <tr bgcolor="#DDDDDD">
   <td colspan="2" class="byline" align="center">
 <input type="submit" value="Submit" name="SUBMIT">
 <input type="reset" value="Clear" name="RESET">
 </td></tr>
</table>
</form>



*******************************************
// BACKEND CODE thankyou.asp
*******************************************
<%

Dim from, sendto, subject, attn, body, name, phone, method
Dim strSQL

Set from = Request.Form("from")
Set subject = Request.Form("subject")
Set sendto = Request.Form("to")
Set attn = Request.Form("attn")
Set body = Request.Form("message")
Set salutation = Request.Form("salutation")
Set name = Request.Form("name")
Set phone1 = Request.Form("phone1")
Set phone2 = Request.Form("phone2")
Set phone3 = Request.Form("phone3")
Set phone4 = Request.Form("phone4")
Set method = Request.Form("method")

body =	"From: " & salutation & " " & name & chr(10) & chr(13) & _
		"Preferred contact method: " & method & chr(10) & chr(13) & _
		"E-mail: " & From & chr(13) & _
		"Phone: " & "(" & phone1 & ")" & " " & phone2 & "-" & phone3 &  " Ext. " & phone4 & chr(10) & chr(13) & _ 
		"Message:" & chr(13) & body & chr(10) & chr(13) & _
		"--------------------------------------------------------------" & chr(13) & _
		"E-mail sent via CAF-FCA web forms.  Email has been sent to : " & sendto & " - " &  now() & chr(10) & chr(13) 


'--------------July 28 2004 Sending email using CDONT --------------------
	
	Set Mail=CreateObject("CDO.Message")
Mail.Subject=attn
Mail.From = name & " (" & From & ")"
Mail.To=sendTo
Mail.TextBody=body			

On Error Resume Next	
	Mail.Send 	
	set Mail = Nothing

'--------------------------------------------------------------------------

'On Error Resume Next
'Mail.Send
If Err <> 0 Then
   Response.Write "Error encountered: " & Err.Description
else
	Response.Write "Thank you.<br><br>Your email has been sent. Please allow at least 24 hours for a response if you requested one."
End If
%>

Select allOpen in new window