<% option explicit if Request.Form.Count > 0 then if len(trim(Request.Form("fullname"))) > 0 and len(trim(Request.Form("email"))) > 0 then Set regEx = New RegExp 'regEx.Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$" If regEx.Test(trim(Request.Form("email"))) Then dim objMail set objMail = server.CreateObject("CDONTS.NewMail") //objMail.To = "wmaamari@verizon.net" objMail.From = trim(Request.Form("fullname")) & "<" & trim(Request.Form("email")) & ">" objMail.Subject = "Insite Feedback" objMail.body = Request.Form("feedback") objMail.send End If Set regEx = Nothing end if end if %>

 

Get in touch with the EHR Evolution team, we will be more than happy to answer
any questions you've got.

Request a Proposal If you're interested in speaking with us about a potential project, please fill out the form below and we'll get in touch with you shortly.




EHR Evolution, Inc

P.O.Box 1801
Centreville, VA 20120

emily@ehr-evolution.com