|
|
|
Thank you for visiting our site, please submit any questions or comments you may have.
If you are interested in one of our monthly seminars please click 
<%
strHost = ""
If request("Action") = "send" Then
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "fpcinvest.com" ' Specify your domain
Mail.From = "info@fpcinvest.com" ' Specify sender's address
Mail.FromName = "FPC" ' Specify sender's name
Mail.AddAddress "info@fpcinvest.com"
Mail.AddReplyTo request("Email")
Mail.Subject = "Feedback from Website"
Mail.Body = request("FirstName") & " " & request("LastName") & " has filled out the web site feedback form. " & Chr(10) &_
"Their address is:" & Chr(10) & request("Street") & Chr(10) & request("Apt") & Chr(10) &_
request("City") & ", " & request("State") & " " & request("Zip") &_
Chr(10) & Chr(10) & "Their phone number is:" & Chr(10) & "(" & request("AreaCode") & ") " & request("PhoneNumber") &_
Chr(10) & Chr(10) & "Email address:" & Chr(10) & request("Email") &_
Chr(10) & Chr(10) & "Comments:" & Chr(10) & request("Comments")
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
End If
%>
|
