İletişim Formu
<%
'***************************************************************************************
' CV Request v1.0 Written by Kaan DOGAN 26.12.2004 Modified 20.12.2009
'***************************************************************************************
On Error Resume Next
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Dim Domain, DomainOK, intLoopCounter2, strTextInput, credit
DomainOK = True
Domain = Request.Querystring("domain")
tarih = now()
name = Request.Querystring("name")
email = Request.Querystring("email")
Domain = Replace(domain,VbCrLf,"
")
ipadresi = Request.ServerVariables("HTTP_CLIENT_IP")
if ipadresi="" then ipadresi = Request.ServerVariables("REMOTE_ADDR")
'// Check Valid String
If Request.Querystring("submit") = "Gönder" and (domain = "" OR Len(domain) < 2) Then
domainOK = False
statuscode = 3
End If
'Status kodları
' 0 : Göndermeye Hazır
' 5 : Aynı IP den gönderiliyor
' 2 : Ad girilmedi
' 4 : Şirket girilmedi
' 3 : Mesaj girilmedi
' 6 : Mesaj gönderildi
' 1 : Telefon girilmedi
if Buffer < 3 then '3 saat kontrolu
If ipadresi = application("ipadresimail2") then statuscode = "5"
End If
Buffer = DateDiff("h",formatdatetime(Application("SonZaman"),0),formatdatetime(now(),0))
' Bunu aktif edersen 3 saat kontrolü iptal olur
' statuscode = ""
If domainOK and statuscode = "" and Request.Querystring("submit") = "Gönder" Then
If name="" then statuscode = 2
If email="" then statuscode = 7
If statuscode = "" then
'Mail Gönderimi
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "185.85.204.16"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info@dogan.org"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Fghj85y22"
.Fields.Update
End With
Set objCDOSYSMail.Configuration = objCDOSYSCon
With objCDOSYSMail
.From = "<" & "info@dogan.org" & ">"
.To = "<" & "mkaand@gmail.com" & ">"
.ReplyTo = "<" & email & ">"
.Subject = "Webden mail gonderildi"
ipbilgi = "[Gönderen IP Adresi] : " & ipadresi
'The main body of the e-amil
MailBody = MailBody & "" & VbCrlf
MailBody = MailBody & "
" & VbCrlf
MailBody = MailBody & "
" & VbCrlf
MailBody = MailBody & "
" & VbCrlf
MailBody = MailBody & "" & VbCrlf
MailBody = MailBody & "" & VbCrlf
MailBody = MailBody & "
Gönderenin;
Adi Soyadi : " & name & "
"
MailBody = MailBody & "
Email Adresi : " & "
" & email & "" & VbCrlf
MailBody = MailBody & "
Mesaji : " & VbCrlf
MailBody = MailBody & domain & "
" & ipbilgi & VbCrlf
MailBody = MailBody & "" & VbCrlf
MailBody = MailBody & "" & VbCrlf
.HTMLBody = MailBody
.CharSet = "UTF-8"
.BodyPart.Charset = "UTF-8"
.TextBodyPart.Charset = "UTF-8"
.HTMLBodyPart.Charset = "UTF-8"
'Send the e-mail
.Send
End With
Set objCDOSYSMail = Nothing
application("ipadresimail2") = ipadresi
statuscode=6
End if
End if
application("SonZaman") = tarih
If statuscode = 0 then
%>
<%
Else
Response.write "
"
If statuscode = 2 then Response.Write "İsminizi girmediniz !"
If statuscode = 3 then Response.Write "Mesaj bölümünü doldurmadınız !"
If statuscode = 6 then Response.Write "Mesajınız başarıyla gönderilmiştir."
If statuscode = 5 then Response.Write "Üzgünüm, 3 saat içinde sadece bir e-mail gönderebilirsiniz."
If statuscode = 7 then Response.Write "Email adresinizi girmediniz !"
Response.write "
"
End if
If Request.Querystring("submit") = "Gönder" or statuscode= 5 then Response.Write "
"
%>
- Tüm alanların eksiksiz doldurulması gereklidir.
- IP Adresiniz <%=ipadresi%> , siteyi ziyaret ettiğiniz tarih ve saatle birlikte kaydedilmektedir.
Bu modül, Kaan DOĞAN tarafından 26.12.2004 tarihinde yazılmıştır ve 20.12.2009 tarihinde revize edilmiştir.
