CDOSYS sending Form Data

Question

I have tried every combination of trying to get form data
sent in an email without any luck.
objMail.txtEmail = Request.Form("Email")
or
objMail.txtEmail = Request("Email")
If I take out the form elements I can get the system to send
me a hardcoded email
Can ANYONE tell me how to add a form variable into an email
using CDOSYS.
I am trying to use this as part of an insert, for members who
add thier details to our database I want to be able to send an
email to someone to be aware who has just been added.
I rely need an answer to this...I have to get this up and
running tomorrow
When answering, can you advise were abouts in the script
elements should be placed.
ANY help would be appreciated

Answer 1

i have had luck with this email code
place before your insert record coding
<%
Dim ObjSendMail
Set ObjSendMail = CreateObject("CDO.Message")
'This section provides the configuration information for the
remote SMTP server.
ObjSendMail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserver")
="127.0.0.1"
ObjSendMail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= 25
ObjSendMail.Configuration.Fields.Item ("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 60
ObjSendMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
if Request.Form("Submit1") = "Send Form" then
ObjSendMail.To = Request.Form("textfield")
ObjSendMail.CC = "[email protected]"
ObjSendMail.BCC = "[email protected]"
ObjSendMail.Subject = "RE:golf tournament entry form is
attached"
ObjSendMail.From = "[email protected]"
' we are sending a text email.. simply switch the comments
around to send an html email instead
'ObjSendMail.HTMLBody = Request.Form("textfield")
ObjSendMail.TextBody = ObjSendMail.TextBody &
cStr(Request.Form("textfield"))
ObjSendMail.TextBody = ObjSendMail.TextBody & "" &
vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Thank you
for entering this years Panhandle Charitable Open"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" &
vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Entry form
is attached"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" &
vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "Please
print form, fill out and mail in with your entry fee"
ObjSendMail.TextBody = ObjSendMail.TextBody & "" &
vbCrlf & ""
ObjSendMail.TextBody = ObjSendMail.TextBody & "" &
vbCrlf & ""
ObjSendMail.AddAttachment Server.MapPath("/entryform.doc")
ObjSendMail.Send
Set ObjSendMail = Nothing
end if
%>