<%
Dim Tarih
Dim Gunler
Dim Aylar
Gunler = Array("Null","Pazar","Pazartesi","Salı","Çarşamba","Perşembe","Cuma","Cumartesi")
Aylar = Array("Null","Ocak","Şubat","Mart","Nisan","Mayıs","Haziran","Temmuz","Ağustos","Eylül","Ekim","Kasım","Aralık")
Tarih = Day(Date) & " " & Aylar(Month(Date)) & " " & Year(Date) & ", " & Gunler(WeekDay(Date))
Dim FSO
Dim Dosya
Dim Dizin
Dim Dosyalar
Dim sTemp
Dim aTemp
Dim bTemp
Dim iTemp
Dim TN
Dim NL
TN = Chr(34)
NL = vbNewLine
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim ObjMail
Function RW(sTemp)
Response.Write sTemp
End Function
Function ValidMail(SMail)
Dim aTemp
SMail = Trim(SMail)
If SMail = "" Then
ValidMail = False
Exit Function
End If
If InStr(1,SMail,"@",1) = 0 Or InStr(1,SMail,".",1) = 0 Then
ValidMail = False
Exit Function
End If
aTemp = Split(SMail,"@")
If UBound(aTemp) > 1 Then
ValidMail = False
Exit Function
End If
If Len(CStr(aTemp(0))) < 1 Then
ValidMail = False
Exit Function
End If
ValidMail = True
End Function
If Request.Form("TAd") <> "" Then
If ValidMail(Request.Form("TMail")) Then
Set ObjMail = Server.CreateObject("Dundas.Mailer")
ObjMail.TOs.Add "iletisim@zavardiya.com"
ObjMail.FromAddress = Request.Form("TMail")
ObjMail.Subject = "Websitesinden E-Posta [ " & Request.Form("TAd") & " ]"
ObjMail.Body = "Gönderen: " & Request.Form("TAd") & NL & "E-Mail: " & Request.Form("TMail") & NL & "Diger: " & Request.Form("TDiger") & NL & "Mesaj:" & NL & Request.Form("TMesaj")
ObjMail.SendMail
If Err.Number <> 0 Then
sTemp = "javascript:alert('Mesajınız İletilemedi, Daha Sonra Tekrar Deneyin'); "
Else
sTemp = "javascript:alert('Mesajınız Başarıyla İletildi!'); "
End If
Set ObjMail = Nothing
Else
sTemp = "javascript:alert('Hata : Geçersiz E-Posta Adresi'); "
End If
End If
%>
New Page 1iletisimZavardiya
