<% '-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 = "mail.panterguvenlik.com.tr" 'Buraya mail server adresinizi yazın ! objMailASPPLUSdotNet.Username = "info@panterguvenlik.com.tr" 'Buraya kullandığınız servera ait email adresini yazın! objMailASPPLUSdotNet.Password = "fenerbahce6gs" 'Buraya email parolanızı yazın! objMailASPPLUSdotNet.From = REQUEST("email") objMailASPPLUSdotNet.AddAddress "info@panterguvenlik.com.tr" 'Buraya mail server adresinizi yazın ! objMailASPPLUSdotNet.Charset = "iso-8859-9" objMailASPPLUSdotNet.Subject = "Webmail" MyBody = " Webmail İletişim Formu" & vbCrLf MyBody = MyBody & "----------------------------------------------------------" & vbCrLf MyBody = MyBody & " # Talep Ettiğiniz Hizmet: " & Request("talep") & vbCrLf MyBody = MyBody & " # Konu: " & Request("konu") & vbCrLf MyBody = MyBody & " # Ad: " & Request("adsoyad") & vbCrLf MyBody = MyBody & " # Telefon: " & Request("tel") & vbCrLf MyBody = MyBody & " # E-mail: " & Request("mail") & vbCrLf MyBody = MyBody & " # Açıklama: " & Request("mesaj_mail") & vbCrLf objMailASPPLUSdotNet.Body = MyBody On Error Resume Next objMailASPPLUSdotNet.Send ASPPLUSdotNet_msg= "Teşekkürler. Mesajınız iletilmiştir." Session("ASPPLUSdotNet_Guvenlik")=TRUE '----------------------------------------------------------------------------------------------------------------------------- End SUB %>
Hizmet talep formu
Talep Ettiğiniz Hizmet
:
Konu
: " size="30">
Ad - Soyad
: " size="30">
Telefon
: " size="30">
E-mail
: " size="30">
Açıklama
:
 <%=ASPPLUSdotNet_msg%>
<%Response.write "Enabled"%><%End If %>>