"
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