<%
Dim Act
Act = False
if Request.Form("Email") <> "" And Request.QueryString("save") = "True" Then
Dim mymail
Dim myname
Dim mymsg
Dim Address
Dim Phone
mymail=""
myname=""
mymsg=""
Address=""
Phone=""
mymail=Request.Form("Email")
myname=Request.Form("N0") & " " & Request.Form("N1")
if myname = "" Then
myname = "No Name"
End if
mymsg=Request.Form("Message")
Address = Request.Form("Address")
Phone = Request.Form("Phone")
if Phone <> "" Then
Phone = "Phone : " & Phone
End if
if Address <> "" Then
Address = "Address : " & Address
End if
Set objsendmail=Createobject("CDONTS.newmail")
With objsendmail
.From=mymail
.To="info@behdashtkar.com"
.Subject=myname
.Body=mymsg & Chr(13) & "-------------------------------" & Chr(13) & myname & Chr(13) & "E-mail : " & mymail & Chr(13) & Address & Chr(13) & Phone
.Send
End With
Act = True
Set objsendmail=Nothing
End if
%>
:. بهداشت کار .:
