|
|
| |
<%
Name = Request.Form("Name")
Tel = Request.Form("Tel")
Fax = Request.Form("Fax")
Email = Request.Form("Email")
Street = Request.Form("Street")
Address = Request.Form("Address")
Zip_Postal = Request.Form("Zip")
City = Request.Form("City")
Country = Request.Form("Country")
JobDescription = Request.Form("JobDescription")
Company = Request.Form("Company")
Subject = "Quotation request"
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "Mail.MJCSecretarial.com" ' Specify your domain
Mail.From = Email ' Specify sender's address
Mail.FromName = Name ' Specify sender's name
Mail.AddAddress("Susan@MJCSecretarial.com")
Mail.AddReplyTo(Email)
Mail.Subject = Subject
Mail.Body = JobDescription & Chr(13) & Chr(10) & _
"Name " & Name & Chr(13) & Chr(10) & _
"Company " & Company & Chr(13) & Chr(10) & _
"Tel " & Tel & Chr(13) & Chr(10) & _
"Email " & Email & Chr(13) & Chr(10) & _
"Fax " & Fax & Chr(13) & Chr(10) & _
"Street " & Street & Chr(13) & Chr(10) & _
"Address " & Address & Chr(13) & Chr(10) & _
"Zip/ Postal Code" & Zip_Postal & Chr(13) & Chr(10) & _
"City " & City & Chr(13) & Chr(10) & _
"Country " & Country & Chr(13) & Chr(10)
%>
|
Quotation Request |
<%On Error Resume Next
Mail.Send
If Err = 0 Then
%>
|
The following information was sent to MJC
Secretarial Services |
|
|
| Name |
<%=Name%> |
| Tel |
<%=Tel%> |
| Email |
<%=Email%> |
| Fax |
<%=Fax%> |
| Job Description |
|
<%End if%>
| <%=Comments%> |
|
|
|
