S
SS
Hi
I know I posted before on this but I'm still having problems so if anyone
can help that would be really great. I didn't have problems with CDONTs so
why oh why did they decide to depreceate it !
I have this script which sends the mail but only for one field how do I get
it to do both. There will be others but I've tried to keep this simple for
now. It would help to be able to do this but then I also need to email the
information from dropdown boxes and checkboxes so any information here would
also be great.
<% Option Explicit %>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sName
Dim sstrBody
Dim sChristianName
Dim sSurname
Dim strBody
Dim sMessage
sTextBody = "ChristianName: " & Request("sChristianName") & VbCrLf
sTextBody = "Surname: " & Request("sSurname") & VbCrLf
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = "(e-mail address removed)"
objMail.To = "(e-mail address removed)"
objMail.Subject = sSubject
objMail.TextBody = sTextBody
objMail.Send
'Clean-up
Set objMail = Nothing
End If
%>
I know I posted before on this but I'm still having problems so if anyone
can help that would be really great. I didn't have problems with CDONTs so
why oh why did they decide to depreceate it !
I have this script which sends the mail but only for one field how do I get
it to do both. There will be others but I've tried to keep this simple for
now. It would help to be able to do this but then I also need to email the
information from dropdown boxes and checkboxes so any information here would
also be great.
<% Option Explicit %>
<%
'Declare variables
Dim sMsg
Dim sTo
Dim sFrom
Dim sSubject
Dim sTextBody
Dim sName
Dim sstrBody
Dim sChristianName
Dim sSurname
Dim strBody
Dim sMessage
sTextBody = "ChristianName: " & Request("sChristianName") & VbCrLf
sTextBody = "Surname: " & Request("sSurname") & VbCrLf
'Only run this if it's not the first time
If Request.Form("Submit") <> "" Then
Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = "(e-mail address removed)"
objMail.To = "(e-mail address removed)"
objMail.Subject = sSubject
objMail.TextBody = sTextBody
objMail.Send
'Clean-up
Set objMail = Nothing
End If
%>