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
%>
