Mail Form

<% who = Request.QueryString("who") submitted = Request.Form("submitted") IF submitted = "yes" THEN uname = Request.Form("name") title = Request.Form("title") email = Request.Form("email") subject = Request.Form("subject") & " " & "Mailing:" & who body = Request.Form("body") who = Request.Form("who") 'send mail mailbody = body & chr(13) & chr(13) mailbody = mailbody & uname & chr(13) & title on error resume next Set Mail = CreateObject("CDONTS.Newmail") Mail.From = email Mail.To = "dterner@mow.com" Mail.Subject = subject Mail.Body = mailbody Mail.Send Set Mail = Nothing %>

Your Message to: <%=who%> has been sent.

<%ELSE%>

Send message to: <%response.write(who)%>

<%END IF%>

Your Name*
Title
Email address* (e.g. john@dow.com)
Subject*
Message