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

'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
'set mycdo = nothing
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
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

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