<%
'**** SEND FORM ***************************
IF Request.form("Active") <> "" Then
dim strRequestEmail
strRequestEmail = Replace(CSTR(Request.Form("EMail")),"'","''")
%>
<%
'************** Email Sub Function ***********************************
dim objCDOMail
dim strFrom
dim strTo
dim strMessageFormat
dim strSubject
dim strBody
Sub SendMail(strFrom, strTo, strMessageFormat, strSubject, strBody)
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Mailformat = strMessageFormat ' Specifies HTML Message Format
objCDOMail.Bodyformat = strMessageFormat ' Specifies HTML Message Format
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
End Sub
%>
<%
Function DoWhiteSpace(str)
If str <> "" Then
DoWhiteSpace = (Replace(str, vbCrlf, " "))
End If
End Function
%>
<%
strFrom = "mlist@deabirkett.com(Mailing list form)"
strTo = "mail@deabirkett.com"
strMessageFormat = 0
strSubject = "New mailing list member"
strBody = "" & vbcrlf
strBody = strBody & "" & vbcrlf
strBody = strBody & "Here are the results of the Mailing List Form:
"
strBody = strBody & "New members email address = " & strRequestEmail & "
