<% if Request("islem")="kayit" then if Request.Form("adi")="" or Request.Form("soyadi")="" or Request.Form("unvan")="" or Request.Form("adres")="" or Request.Form("telefon")="" or Request.Form("ceptelefonu")="" or Request.Form("eposta")="" or Request.Form("kurum")="" or Request.Form("bildiribaslik")="" or Request.Form("bildiri")="" then Response.Write "




" Response.Write "HATA!



" Response.Write "Formdaki Bilgileri Eksik Doldurdunuz



" Response.Write "<<Geri" else Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veri_tabani.mdb") Set Kayit = Server.CreateObject ("ADODB.RecordSet") Sql_Komutu = "Select * from DAS" Kayit.Open Sql_Komutu, Baglanti, 1, 3 Kayit.AddNew Kayit("basvuru_tarihi")=date() Kayit("durum")="Yeni" Kayit("adi")=Request.Form("adi") Kayit("soyadi")=Request.Form("soyadi") Kayit("cinsiyet")=Request.Form("cinsiyet") Kayit("unvan")=Request.Form("unvan") Kayit("adres")=Request.Form("adres") Kayit("telefon")=Request.Form("telefon") Kayit("ceptelefonu")=Request.Form("ceptelefonu") Kayit("eposta")=Request.Form("eposta") Kayit("kurum")=Request.Form("kurum") Kayit("kurumunvan")=Request.Form("kurumunvan") Kayit("yazar1")=Request.Form("yazar1") Kayit("yazar2")=Request.Form("yazar2") Kayit("yazar3")=Request.Form("yazar3") Kayit("yazar4")=Request.Form("yazar4") Kayit("yazar5")=Request.Form("yazar5") Kayit("yazar6")=Request.Form("yazar6") Kayit("yazarkurum1")=Request.Form("yazarkurum1") Kayit("yazarkurum2")=Request.Form("yazarkurum2") Kayit("yazarkurum3")=Request.Form("yazarkurum3") Kayit("yazarkurum4")=Request.Form("yazarkurum4") Kayit("yazarkurum5")=Request.Form("yazarkurum5") Kayit("yazarkurum6")=Request.Form("yazarkurum6") Kayit("bildiribaslik")=Request.Form("Bildiribaslik") Kayit("bildiri")=Request.Form("bildiri") Kayit("bildiri1")=Request.Form("bildiri1") Kayit("bildiri2")=Request.Form("bildiri2") Kayit("bildiri3")=Request.Form("bildiri3") Kayit.Update Response.Write "


" Response.Write "TESEKKURLER!



" Response.Write "Bildiri Formunuz basarili bir sekilde kaydedildi



" Response.Write "Bildirinizi gönderdikten sonra kesin kayıt yapıldığına dair size E-mail ile bilgilendirme yapılacaktır.



" Kayit.close Set Kayit = Nothing end if else %>

Bildirinizi gönderdikten sonra kesin kayıt yapıldığına dair size E-mail ile bilgilendirme yapılacaktır.

Bildiri Sunucusu Bilgileri
Bay/Bayan :
Adı :*
Soyadı :*
Ünvan :*
Adres :*
Telefon :* (Varsa Dahili /...)
Cep Telefonu :*
E-posta :*
Kurum :*
Kurum Ünvanınız :

Diğer Yazar Bilgileri

  Kurum Bilgileri
1:  
2:  
3:  
4:  
5:  
6:  
Bildiri Özeti
Bildiri Başlığı :*
Giriş:*

 
Amaç:*

 
Uygulama:*

 
Sonuç:*

 
 (*) isaretli Alanlarin Doldurulmasi Zorunludur.
<%end if%>