<% '-ASPPLUSdotNet www.ASPPLUS.net 2006 '- KelebekASP Webmesaj Formu III - Persits ----------------------------------------------------------------------------------- ASPPLUSdotNet_msg=REQUEST("ASPPLUSdotNet_msg") email=REQUEST("email") If Request ("ASPPLUSdotNet") = "Yolla" Then CALL Webmail Else End if '-------------------------------------------------------------------------- SUB Webmail '- SessionID Kontrol: ------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------------------------------- ip = Request.ServerVariables("REMOTE_ADDR") Dim objMailASPPLUSdotNet, MyBody, strMailServer Set objMailASPPLUSdotNet = Server.CreateObject("Persits.MailSender") objMailASPPLUSdotNet.Host = "localhost" 'Buraya mail server adresinizi yazın ! objMailASPPLUSdotNet.Username = "form@ditamobilya.com.tr" 'Buraya kullandığınız servera ait email adresini yazın! objMailASPPLUSdotNet.Password = "Mod201607*" 'Buraya email parolanızı yazın! objMailASPPLUSdotNet.From = "form@ditamobilya.com.tr" objMailASPPLUSdotNet.AddAddress "form@ditamobilya.com.tr" 'Buraya mail server adresinizi yazın ! objMailASPPLUSdotNet.Charset = "iso-8859-9" objMailASPPLUSdotNet.Subject = "Webmail" MyBody = MyBody & "Dita Mobilya İletişim Formu" & vbCrLf MyBody = MyBody & " # Adınız : " & Request("adi") & vbCrLf MyBody = MyBody & " # Soyadını z: " & Request("soyadi") & vbCrLf MyBody = MyBody & " # E-Mail : " & Request("mail") & vbCrLf MyBody = MyBody & " # Telefon : " & Request("telefon") & vbCrLf MyBody = MyBody & " # Faks : " & Request("faks") & vbCrLf MyBody = MyBody & " # Görüş ve Önerileriniz : " & Request("mesaj") & vbCrLf objMailASPPLUSdotNet.Body = MyBody On Error Resume Next objMailASPPLUSdotNet.Send ASPPLUSdotNet_msg= "Teşekkürler,Mesajınız Başarıyla Gönderildi" Session("ASPPLUSdotNet_Guvenlik")=TRUE '----------------------------------------------------------------------------------------------------------------------------- End SUB %>
Adınız
:
Soyadınız
:
E-Mail
:
Telefon
:
Faks
:
Görüş ve Önerileriniz
:
<%=ASPPLUSdotNet_msg%>
<%Response.write "Enabled"%><%End If %>>