% 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 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 %>
|
||||||||||||||||||||
|