|
|
| |
<%
Name = Request.Form("username")
Tel = Request.Form("UserTel")
Fax = Request.Form("UserFax")
Email = Request.Form("UserEmail")
Comments = Request.Form("Comments")
CommentType = Request.Form("MessageType")
Subject = Request.Form("Subject")
SubjectOther = Request.Form("SubjectOther")
ContactMe = Request.Form("ContactRequested")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Caymanadvertise.com" ' Specify your domain
Mail.From = Email ' Specify sender's address
Mail.FromName = "Feed Back Form" ' Specify sender's name
Mail.AddAddress("Susan@MJCSecretarial.com")
Mail.AddReplyTo(Email)
Mail.Subject = CommentType & " about " & Subject & " [" & SubjectOther & "]"
Mail.Body = Comments & Chr(13) & Chr(10) & _
"Name " & Name & Chr(13) & Chr(10) & _
"Tel " & Tel & Chr(13) & Chr(10) & _
"Email " & Email & Chr(13) & Chr(10) & _
"Fax " & Fax & Chr(13) & Chr(10) & _
Contactme & "."
%>
|
Feedback |
<%On Error Resume Next
Mail.Send
If Err = 0 Then
%>
|
The following information was sent to MJC
Secretarial Services |
|
|
| Comment Type |
<%=Commenttype%> |
| Comment About |
<%=CommentType%> |
| Name |
<%=Name%> |
| Tel |
<%=Tel%> |
| Email |
<%=Email%> |
| Fax |
<%=Fax%> |
| Comments |
|
<%End if%>
| <%=Comments%> |
|
|
|
