<%
dim strName,strEmail,strSub,strMess
strName = Request.Form("name")
strEmail = Request.Form("email")
strSub = Request.Form("sub")
strMess = Request.Form("mess")
' change to address of your own SMTP server
strHost = "golpaion.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("Golpaion Web Site") ' From address
Mail.FromName = Request(strName) ' optional
Mail.AddAddress Request("To")
' message subject
Mail.Subject = Request("strSub")
' message body
Mail.Body = Request("strMess")
strErr = "You had an error during in your sending message , Please try again."
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
Golpayoun Specialized Green Space and General Services Co.
Telephone - Fax :
+98-21-22279334
Cell Phone :
0912-3029121
E-mail Address :
customer@golpaion.com
Address :
No 241 - Mirza Shirazi Street - Abbas Abad Avenue - Tehran - Iran
