<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%=baslik%>
 
   
 
<% if Request("islem") = "kaydet" then posta = Replace(Request.Form("posta"), "'", "´", 1, -1, 1) if posta ="" then Response.Write "
İşlem Gerçekleştirilemedi !

Lütfen E-Posta Adresinizi Doğru Girin.

" Response.Write "<<<
" else Set iletisimBaglanti = Server.CreateObject("ADODB.Connection") iletisimBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/veri_tabani.mdb") Set iletisimKayit = Server.CreateObject ("ADODB.RecordSet") Sql_Komutu = "Select * from eposta" iletisimKayit.Open Sql_Komutu, iletisimBaglanti, 1, 3 iletisimKayit.AddNew iletisimKayit("zaman")=now() iletisimKayit("durum")="0" iletisimKayit("posta")=posta iletisimKayit.Update Response.Write "
İşlem Tamamlandı.

E-Posta Adresiniz Başarılı Bir Şekilde Veritabanımıza Kaydedildi.

" Response.Write "<<<
" iletisimKayit.close Set iletisimKayit = Nothing end if else %>



E-Posta listemize katılarak hakkımızdaki yeniliklerden
önce siz haberdar olun...
 
<%end if%>
<%Set AnaBaglanti = Server.CreateObject("ADODB.Connection") AnaBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/veri_tabani.mdb") Set AnaKayit = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT iletisim FROM degiskenler" AnaKayit.Open Sorgu,AnaBaglanti,1,3 AnaKayit("iletisim") = Replace(AnaKayit("iletisim"),vbCrLf,"
")%>
UĞUR BÖCEĞİ YIL SONU BALOSU

 
- Duyurular -

<%Set AnaBaglanti = Server.CreateObject("ADODB.Connection") AnaBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/veri_tabani.mdb") Set AnaKayit = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT kayanyazi FROM degiskenler" AnaKayit.Open Sorgu,AnaBaglanti,1,3 AnaKayit("kayanyazi") = Replace(AnaKayit("kayanyazi"),vbCrLf,"
") %> <%=KarakterDuzenle(AnaKayit("kayanyazi"))%>

 
 

<% if Request("islem") = "iletisim" then isim = Replace(Request.Form("isim"), "'", "´", 1, -1, 1) posta = Replace(Request.Form("posta"), "'", "´", 1, -1, 1) metin = Replace(Request.Form("metin"), "'", "´", 1, -1, 1) if isim ="" or posta ="" or metin ="" then Response.Write "
İşleminiz Gerçekleştirilemedi !

Alanları Eksiksiz Doldurduğunuzdan Emin Olun.



" Response.Write "<<<
" else Set iletisimBaglanti = Server.CreateObject("ADODB.Connection") iletisimBaglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri/veri_tabani.mdb") Set iletisimKayit = Server.CreateObject ("ADODB.RecordSet") Sql_Komutu = "Select * from iletisim" iletisimKayit.Open Sql_Komutu, iletisimBaglanti, 1, 3 iletisimKayit.AddNew iletisimKayit("zaman")=now() iletisimKayit("durum")="0" iletisimKayit("isim")=isim iletisimKayit("posta")=posta iletisimKayit("metin")=metin iletisimKayit.Update Response.Write "
İşleminiz Başarılı

Mesajınız Başarılı bir Şekilde Veritabanımıza Yüklenmiştir. En Kısa Zamanda Sizinle İrtibata Geçilecektir.

" Response.Write "<<<
" iletisimKayit.close Set iletisimKayit = Nothing end if else %>

Adınız Soyadınız

E-Posta Adresiniz

İletmek İstedikleriniz
<%end if%>
    
<%=sayfadibi%>