<% Option Explicit dim send, flname, email, body send = request.form("send") flname = request.form("flname") email = request.form("email") body = request.form("body") Function validEmail(email) dim valid dim regEx valid = True set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$" valid = regEx.Test(email) validEmail = valid End Function %> Heidi Scarfone

<% if send <> "Send Email" then %>

If this page does not send your email properly it is likely due to using an email address that is .ca or something that this does not recognize as a proper email address. If this is the case please use this link. Email Heidi.

First/Last Name:
Email Address:
Body of email:

<% else if validEmail(email) = false then response.write "Please type in your proper email address." response.end end if Dim sch, cdoConfig, cdoMessage, Profile sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item(sch & "sendusing") = 2 cdoConfig.Fields.Item(sch & "smtpserver") = "mail.havingyourbaby.com" 'cdoConfig.Fields.Item(sch & "smtpserver") = "mail.quickclic.net" cdoConfig.fields.update Set cdoMessage = Server.CreateObject("CDO.Message") Set cdoMessage.Configuration = cdoConfig 'cdoMessage.From = "heidi@havingyourbaby.com" cdoMessage.From = email 'cdoMessage.To = "heidi@havingyourbaby.com" cdoMessage.To = "scarfone@quickclic.net" cdoMessage.Subject = "Message from " & flname cdoMessage.TextBody = body cdoMessage.Send Set cdoMessage = Nothing Set cdoConfig = Nothing %>

Your Email Has Been Sent

<% end if %>