<% @Language="VBScript" CodePage="1254" %> <% Server.ScriptTimeOut=300 %> <% Response.Buffer = TRUE %> <% '- ASPNetLife Webmesaj Formu ------------------------------------------------- ASPNetLife_msg=REQUEST("ASPNetLife_msg") email=REQUEST("email") konu=REQUEST("konu") If Request ("ASPNetLife_ASP") = "Yolla" Then CALL Webmail Else End if '------------------------------------------------------------------------------ SUB Webmail sid=Trim(Request("sid")) IF sid <> Session.SessionID THEN Response.Write "
# Uyarı : SessionID Değeri Geçersiz !
" Response.Write "
--------------------------------------------------------------------------------
" Response.Write "
Sayfayı Kapatıp - Açıp Tekrar Deneyin !
" Response.End END IF '----------------------------------------------------------------------------------------------------------------------------- If REQUEST("adsoyad")="" or len(REQUEST("adsoyad"))<3 or len(REQUEST("adsoyad"))>50 Then ASPNetLife_msg= "UYARI: Ad Soyad Alanı Boş Bıraktınız ! ( En Az 3, En Çok 50 Karakter )" Else '-------------------------------------------------------------------------- If Len(email) < 5 Then bIsValid = "False" Else If Instr(1, email, " ") <> 0 Then bIsValid = "False" Else If InStr(1, email, "@", 1) < 2 Then bIsValid = "False" Else If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then bIsValid = "False" End If End If End If End If IF bIsValid = "False" THEN ASPNetLife_msg= "UYARI: Lütfen Geçerli Bir E-Mail Adresi Girin !" Else '-------------------------------------------------------------------------- If not REQUEST("telefon")="" and not IsNumeric(REQUEST("telefon")) Then ASPNetLife_msg= "UYARI: Telefon Alanına Sadece Rakam Girilebilir !" Else '-------------------------------------------------------------------------- If REQUEST("mesaj_mail")="" or len(REQUEST("mesaj_mail"))<3 or len(REQUEST("mesaj_mail"))>3000 Then ASPNetLife_msg= "UYARI: Mesaj Alanı Boş Bıraktınız ! ( En Az 3, En Çok 3000 Karekter )" Else '-------------------------------------------------------------------------- If Session("ASPNetLifeGuvenlik")=TRUE Then ASPNetLife_msg= "UYARI: ASPNetLife Webmail Flood Koruma !" Else '----------------------------------------------------------------------------------------------------------------------------- ip = Request.ServerVariables("REMOTE_ADDR") '----------------------------------------------------------------------------------------------------------------------------- ASPNetLife_MyBody = " Webmail İletişi Formu" & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & "----------------------------------------------------------" & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " # Mesaj : " & Request("mesaj_mail") & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & "----------------------------------------------------------" & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " # Ad Soyad : " & Request("adsoyad") & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " # E-Posta : " & Request("email") & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " # Telefon : " & Request("telefon") & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & "----------------------------------------------------------" & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " # IP : " & ip & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & "----------------------------------------------------------" & vbCrLf ASPNetLife_MyBody = ASPNetLife_MyBody & " www.ASPNetLife" & vbCrLf '----------------------------------------------------------------------------------------------------------------------------- Const cdoSendUsingMethod = _ "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = _ "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = _ "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = _ "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = _ "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = _ "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = _ "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.intepeinsaat.com" '-Mail server adresiniz ! /////////////////////////////////// .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPConnectionTimeout) = 10 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "damon@intepeinsaat.com" '-Mail kullanıcı adınız ! /////////////////////////////////// .Item(cdoSendPassword) = "d1d1d1" '-Mail parolanız ! ////////////////////////////////////////// .Update End With '----------------------------------------------------------------------------------------------------------------------------- Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .To = "damon@intepeinsaat.com" '-Serverınıza ait e-mail adresi (ÖNEMLİ) ! /////////////////////////////////// .From = email .Subject = konu .TextBody = ASPNetLife_MyBody .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing '----------------------------------------------------------------------------------------------------------------------------- ASPNetLife_msg= "Teşekkürler, Mesaj Başarıyla Gönderilmiştir." Session("ASPNetLifeGuvenlik")=TRUE Set objMailASPNetLife = Nothing '----------------------------------------------------------------------------------------------------------------------------- End If End If End If End If End If '----------------------------------------------------------------------------------------------------------------------------- End SUB %> ASPNetLife.com CDO Web Mail Form
 <%=ASPNetLife_msg%> 
Adınız Soyadınız *
E-Posta *
Telefon (Örn: 02124440444)
Mesajınız *
Karakter Sayısı : 
    <%End If %> onClick="javascript:this.disabled=disabled;return true;">

( * ) İşaretli Alanların Doldurulması Zorunludur.