<% '**** 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 & "

" strBody = strBody & "FORM submitted at " & Now() & "

" Call SendMail(strFrom, strTo, strMessageFormat, strSubject, strBody) response.redirect "information.asp" End If '************************************* %> <%=strSiteWideSiteName%>
banner
nav_fillerAboutBooksJournalism & FilmNews & EventsTravel



To join the Mailing List enter your e-mail below:
Your E-Mail address will not be passed or sold on to anyone
*E-Mail  








site by pedalo limited Newsletter