|
|

<%
if Request("islem")="kayit" then
if Request.Form("isim")="" or Request.Form("dogum")="" or Request.Form("cinsiyet")="" or Request.Form("adres")="" or Request.Form("evtel")="" or Request.Form("ceptel")="" or Request.Form("eposta")="" or Request.Form("pozisyon")="" 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 eleman"
Kayit.Open Sql_Komutu, Baglanti, 1, 3
Kayit.AddNew
Kayit("basvuru_tarihi")=date()
Kayit("durum")="Yeni"
Kayit("isim")=Request.Form("isim")
Kayit("dogum")=Request.Form("dogum")
Kayit("cinsiyet")=Request.Form("cinsiyet")
Kayit("adres")=Request.Form("adres")
Kayit("evtel")=Request.Form("evtel")
Kayit("ceptel")=Request.Form("ceptel")
Kayit("eposta")=Request.Form("eposta")
Kayit("pozisyon")=Request.Form("pozisyon")
Kayit("askerlik")=Request.Form("askerlik")
Kayit("ehliyet")=Request.Form("ehliyet")
Kayit("medeni")=Request.Form("medeni")
Kayit("sirket1")=Request.Form("sirket1")
Kayit("gorev1")=Request.Form("gorev1")
Kayit("sure1")=Request.Form("sure1")
Kayit("sirket2")=Request.Form("sirket2")
Kayit("gorev2")=Request.Form("gorev2")
Kayit("sure2")=Request.Form("sure2")
Kayit("lise")=Request.Form("lise")
Kayit("universite")=Request.Form("universite")
Kayit("master")=Request.Form("master")
Kayit("ingilizce")=Request.Form("ingilizce")
Kayit("diger_lisan")=Request.Form("diger_lisan")
Kayit("bilgisayar")=Request.Form("bilgisayar")
Kayit("sertifika")=Request.Form("sertifika")
Kayit("refisim1")=Request.Form("refisim1")
Kayit("refunvan1")=Request.Form("refunvan1")
Kayit("refno1")=Request.Form("refno1")
Kayit("refisim2")=Request.Form("refisim2")
Kayit("refunvan2")=Request.Form("refunvan2")
Kayit("refno2")=Request.Form("refno2")
Kayit("metin")=Request.Form("metin")
Kayit.Update
Response.Write "
"
Response.Write "TEBRİKLER!
"
Response.Write "Başvurunuz başarılı bir şekilde kaydedildi
"
Response.Write "<<Geri"
Kayit.close
Set Kayit = Nothing
end if
else
%>
<%end if%> |
 |
|
|
|