I am working on a project for work. MY form gathers simple data, and submits to an access database. all that is ok. My form results are to submit an email to a specific email address. The form absolutly will not email the info. Please be advised that this form is on a Server running Windows 2003 Server. My code is listed below. Can anyone help me please!?!?!?!?

-------------------------------------------------------------------------

'Response.Write strSQL

Set fp_conn = Server.CreateObject("ADODB.Connection")

Set fp_rs = Server.CreateObject("ADODB.Recordset")

fp_conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath("../../../fpdb/misform.mdb")

fp_rs.Open strSQL, fp_conn, adOpenKeySet, adLockOptimistic, asCmdText ' adOpenKeySet, adLockOptimistic, adCmdTable

CR=Chr(13)
'set mycdo = server.createobject("CDONTS.NewMail")
'mycdo.from = "svr-amed-focus.amedisys.com"
'mycdo.to = "kplaisance@amedisys.com"
'mycdo.subject = "New Employee form Submitted by " & Request("EmployeeName")
'tbdy = "Hey," & CR & CR & "This is an email" & CR
'tbdy = tbdy & "Thanks"
'mycdo.body = tbdy
'mycdo.importance = 2
'mycdo.send
'set mycdo = nothing
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
'kplaisance@amedisys.com
'Amedisys-dom
sTo = "svr-amed-focus.amedisys.com"
sFrom = "kplaisance@amedisys.com"
sSubject = "New Employee form Submitted by " & Request("EmployeeName")
sTextBody = "This has be sent automatically. Please don't respond to this..."

Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")

'Set key properties
objMail.From = sFrom
objMail.To = sTo
objMail.Subject= sSubject
objMail.TextBody = sTextBody

'Send the email
objMail.Send

'Clean-up mail object
Set objMail = Nothing
%>

I know Win 3k ships with CDOSYS, I don't know about CDONTS. Check your IIS 6 web server e-mail component installed.

this is not CDONTS it is already CDOSYS. The CDONTS is commented out. make sure SMTP server is running and is configured.

This article has been dead for over six months. Start a new discussion instead.