•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 363,558 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 3,940 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our ASP advertiser: Lunarpages ASP Web Hosting
Views: 9077 | Replies: 3
![]() |
| |
•
•
Join Date: Feb 2005
Posts: 1
Reputation:
Rep Power: 0
Solved Threads: 0
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
%>
-------------------------------------------------------------------------
'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
%>
•
•
Join Date: Feb 2005
Location: Los Angeles, CA
Posts: 86
Reputation:
Rep Power: 4
Solved Threads: 1
I know Win 3k ships with CDOSYS, I don't know about CDONTS. Check your IIS 6 web server e-mail component installed.
Dexter Zaf
Ex-designz.net
Ex-designz.net
![]() |
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
•
•
•
•
•
•
•
•
DaniWeb ASP Marketplace
•
•
•
•
.net ad advertising ajax architecture asp backup beta business centro crash custom daniweb database dell developer development dom doubleclick enterprise feed google internet linux longhorn mail microsoft mmorpg msdn news novell office open qmail reader red hat rhel server skin software source sql suse theme vista weather windows windows server xml xoap
- Problem with my windows 2003 Server (Windows NT / 2000 / XP / 2003)
- link exchange script (Existing Scripts)
- problems with Wireless , win 2003 server (Windows NT / 2000 / XP / 2003)
- Win 2003 Remote Admin problems (Windows NT / 2000 / XP / 2003)
- Antivirus program for my 2003 server (Windows NT / 2000 / XP / 2003)
- Asp.net: Deployment Of .net Application In Windows 2003 Server (ASP)
Other Threads in the ASP Forum
- Previous Thread: verify that a file was downloaded (save as was clicked)
- Next Thread: Not bale to view my ASP page


Hybrid Mode