<%
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 = "در ارسال پیام شما مشکلی روی داد ، لطفا دوباره پیام خود را ارسال نمائید."
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
%>
وب سایت شركت كارشناسی فضای سبز و خدمات عمومی گل پایون
٢٢٢٧٩٣٣٤
تلفن - فکس :
٠٩١٢٣٠٢٩١٢١
تلفن همراه :
customer@golpaion.com
پست الکترونیک :
تهران - خیابان عباس آباد - ابتدای میرزای شیرازی - پلاک ٢٤١
آدرس :
<% If strErr <> "" Then %>
Error occurred: <% = strErr %>
<% End If %>
<% If bSuccess Then %>
Success! Message sent to <% = Request("To") %>.
<% End If %>
