|
<%
elseif Request.QueryString("islem") = "send" then
Dim Mname, Memail, subject , tarih
tarih = Now()
Mname = Request.Form("ad")
Memail = Request.Form("mail")
Mpaket = Request.Form("paket")
mailserver = "mail.toz-tanesi.890m.com"
Set Mail = Server.CreateOBject("JMail.Message")
Mail.Charset = "ISO-8859-9"
Mail.Logging = True
Mail.Silent = True
Mail.AddRecipient "esra@toz-tanesi.890m.com "
Mail.From = Memail
Mail.FromName = Mname
Mail.Subject = "İLETİŞİM FORMU"
govde=govde &"Bu Mesaj "& tarih &" Tarihinde Gönderilmiştir.
Gönderen: "& Mname &"
"& chr(10)
govde=govde &"
E-Mail : "& Memail &"
"& chr(10)
IF not Request.Form("tel") = "" Then
govde=govde &"
Telefon : "& Request.Form("tel") &"
"& chr(10)
End IF
govde=govde&" "& chr(10)
govde=govde &"
Mesaj : "& Request.Form("mesaj") &"
"& chr(10)
Mail.HTMLBody = govde
On Error Resume Next
Mail.Send mailserver
If Err <> 0 Then
Response.Write ""
Else
Response.Write ""
End If
Set Mail = Nothing
end if
%>
| 
