access aynı kaydı 2 kez yapması

**turgenc34** · 09.02.2010 00:30

merhaba arkadaşlar konu varmı bilmiyorum ama çok araştırdım bulamadım aşağıda vermiş olduğum kodlar üye kaydolunca telefon numarasında eğer veri tabanında o telefon numarası ve mail adresi varsa uyarı versin yani kaydetmesin istiyorum fakat bir türli yapamadım kodu aşağıya kopyaladım anlayan arkadaşlarda rıca ediyorum düzenleyip hazır bir şekilde yapa bilirseniz çok sevinirim

KOD

Kod:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>İş Başvurunuz İletilmiştir</title>
</head>
<body bgcolor="#000000">
<td valign="top" height="191">
     <p align="center">&nbsp;<html>
<head>
<title>İş Başvurunuz İletilmiştir...</title>
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" bgcolor="#000000">
<p align="center">
<%
Function secure(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"/","",1,-1,1)
data = Replace (data ,"\","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
secure=data
End Function
Set cvbank = Server.CreateObject("ADODB.Connection")
cvbank.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../verdata/data.mdb")
badi = Request.Form ("badi")
ad = Request.Form ("ad")
soyad = Request.Form ("soyad")
tel = Request.Form ("tel")
mail = Request.Form ("mail")
adres = Request.Form ("adres")
egitim = Request.Form ("egitim")
Alkol = Request.Form ("Alkol")
sigara = Request.Form ("sigara")
bolum = Request.Form ("bolum")
resim = Request.Form ("resim")
site = Request.Form ("site")
cv = Request.Form ("cv")
if ad = "" then
Response.Write "<b>Adınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf soyad = "" then
Response.Write "<b>Soyadınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf tel = "" then
Response.Write "<b>Telefon Numaranızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf mail = "" then
Response.Write "<b>Mail Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf adres = "" then
Response.Write "<b>Lütfen İkamet Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf bolum = "" then
Response.Write "<b>Çalışmak İstediğiniz Bölümü Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf cv = "" then
Response.Write "<b>Lütfen Kısa Özgeçmişinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
else
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = "Select * from basvuru"
rs.Open sql, cvbank, 1, 3
rs.AddNew
rs("ktarih") = (Date)
rs("badi")= secure(Request.Form ("badi"))
rs("ad")= secure(Request.Form ("ad"))
rs("soyad")=secure(Request.Form ("soyad"))
rs("tel")= secure(Request.Form ("tel"))
rs("mail")= secure(Request.Form ("mail"))
rs("adres")= secure(Request.Form ("adres"))
rs("egitim")= secure(Request.Form ("egitim"))
rs("Alkol")= secure(Request.Form ("Alkol"))
rs("sigara")= secure(Request.Form ("sigara"))
rs("bolum")= secure(Request.Form ("bolum"))
rs("resim")= secure(Request.Form ("resim"))
rs("site")= secure(Request.Form ("site"))
rs("cv")= secure(Request.Form ("cv"))
rs.Update
%>
<img src="iletildi.jpg">
</p>
<p align="center">&nbsp;</p>
<%
rs.close
End if
Set rs = Nothing
%>
<meta HTTP-EQUIV="refresh" CONTENT="5; URL=jigoloolmak.asp">
</p>
                    <p align="left">&nbsp;</p>
                    <p align="left">&nbsp;</p>
                    <p>
     <b><font face="Tahoma" size="2" color="#5984B0">&nbsp;&nbsp; </font></b>
                    </p>
                    <p align="center">&nbsp;</p>
                    <p align="center">&nbsp;</p>
                    </p>
     <p align="center">
     &nbsp;</p>
     <p align="left">&nbsp;<p align="left">&nbsp;<p align="left">&nbsp;</td>
</body>
</html>

**leylaz** · 13.02.2010 20:32

Veritabınına kayıt ettirmeden önce mail adresinin daha önce kayıtlı olup olmadığını sorugulatabilirsin. Kayıtlı değilse kayıt yapacaktır.

Set kontrol = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * from basvuru WHERE mail = '" & mail & "'"
kontrol.open SQL,cvbank,1,3
if not kontrol.eof then
Response.write "<font face=Verdana size=2>Bu e-posta ile daha önce kayıt yapılmıştır.<br>"
Response.end

**turgenc34** · 14.02.2010 02:55

Ustat Kodu buldum da işte o yukarda vermiş olduğum koda nasıl yerleştireceğim onu bilmiyorum sana zahmet öylece ayarlaman mümkünmü..?

Orijinalini Gönderen: leylaz

Veritabınına kayıt ettirmeden önce mail adresinin daha önce kayıtlı olup olmadığını sorugulatabilirsin. Kayıtlı değilse kayıt yapacaktır.

**leylaz** · 15.02.2010 21:51

HTML Kodu:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>İş Başvurunuz İletilmiştir</title>
</head>
<body bgcolor="#000000">
<td valign="top" height="191">
     <p align="center">&nbsp;<html>
<head>
<title>İş Başvurunuz İletilmiştir...</title>
</head>
<body link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF" bgcolor="#000000">
<p align="center">
<%
Function secure(data)
data = Replace (data ,"`","",1,-1,1)
data = Replace (data ,"=","",1,-1,1)
data = Replace (data ,"&","",1,-1,1)
data = Replace (data ,"%","",1,-1,1)
data = Replace (data ,"!","",1,-1,1)
data = Replace (data ,"#","",1,-1,1)
data = Replace (data ,"<","",1,-1,1)
data = Replace (data ,">","",1,-1,1)
data = Replace (data ,"*","",1,-1,1)
data = Replace (data ,"/","",1,-1,1)
data = Replace (data ,"\","",1,-1,1)
data = Replace (data ,"And","",1,-1,1)
data = Replace (data ,"'","",1,-1,1)
data = Replace (data ,"Chr(34)","",1,-1,1)
data = Replace (data ,"Chr(39)","",1,-1,1)
secure=data
End Function
Set cvbank = Server.CreateObject("ADODB.Connection")
cvbank.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../verdata/data.mdb")
badi = Request.Form ("badi")
ad = Request.Form ("ad")
soyad = Request.Form ("soyad")
tel = Request.Form ("tel")
mail = Request.Form ("mail")
adres = Request.Form ("adres")
egitim = Request.Form ("egitim")
Alkol = Request.Form ("Alkol")
sigara = Request.Form ("sigara")
bolum = Request.Form ("bolum")
resim = Request.Form ("resim")
site = Request.Form ("site")
cv = Request.Form ("cv")
if ad = "" then
Response.Write "<b>Adınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf soyad = "" then
Response.Write "<b>Soyadınızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf tel = "" then
Response.Write "<b>Telefon Numaranızı Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf mail = "" then
Response.Write "<b>Mail Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf adres = "" then
Response.Write "<b>Lütfen İkamet Adresinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf bolum = "" then
Response.Write "<b>Çalışmak İstediğiniz Bölümü Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
elseIf cv = "" then
Response.Write "<b>Lütfen Kısa Özgeçmişinizi Giriniz</b><br>5 Saniye İçerisinde Forma Geri Dönceksiniz.Lütfen Boş Alan Bırakmayınız!!!"
Set kontrol = Server.CreateObject("ADODB.RecordSet")

SQL = "Select * from basvuru WHERE mail = '" & mail & "'"
kontrol.open SQL,cvbank,1,3
if not kontrol.eof then
Response.write "<font face=Verdana size=2>Bu e-posta ile daha önce
 kayıt yapılmıştır.<br>"

Response.end
    
else
Set rs = Server.CreateObject ("ADODB.RecordSet")
sql = "Select * from basvuru"
rs.Open sql, cvbank, 1, 3
rs.AddNew
rs("ktarih") = (Date)
rs("badi")= secure(Request.Form ("badi"))
rs("ad")= secure(Request.Form ("ad"))
rs("soyad")=secure(Request.Form ("soyad"))
rs("tel")= secure(Request.Form ("tel"))
rs("mail")= secure(Request.Form ("mail"))
rs("adres")= secure(Request.Form ("adres"))
rs("egitim")= secure(Request.Form ("egitim"))
rs("Alkol")= secure(Request.Form ("Alkol"))
rs("sigara")= secure(Request.Form ("sigara"))
rs("bolum")= secure(Request.Form ("bolum"))
rs("resim")= secure(Request.Form ("resim"))
rs("site")= secure(Request.Form ("site"))
rs("cv")= secure(Request.Form ("cv"))
rs.Update
%>
<img src="iletildi.jpg">
</p>
<p align="center">&nbsp;</p>
<%
rs.close
End if
Set rs = Nothing
%>
<meta HTTP-EQUIV="refresh" CONTENT="5; URL=jigoloolmak.asp">
</p>
                    <p align="left">&nbsp;</p>
                    <p align="left">&nbsp;</p>
                    <p>
     <b><font face="Tahoma" size="2" color="#5984B0">&nbsp;&nbsp; </font></b>
                    </p>
                    <p align="center">&nbsp;</p>
                    <p align="center">&nbsp;</p>
                    </p>
     <p align="center">
     &nbsp;</p>
     <p align="left">&nbsp;<p align="left">&nbsp;<p align="left">&nbsp;</td>
</body>
</html>

şöyle dener misin?

**turgenc34** · 16.02.2010 13:31

çok tşk ederim babacan bbacan birde bu syfa numaralandırmak ile ilgili bilgin varmı yani çektiğim veriler tek bir sayfada yer alıyor ben bunu her sayfasa 10 tane olmak üzre sayfalara bölmek istiyorum

Başlık: access aynı kaydı 2 kez yapması

Başlık Araçları

Başlıkta Ara

access aynı kaydı 2 kez yapması

Benzer Başlıklar

Bilgisayar açılırken denetleme yapması

farklı disklerdeki aynı excel dosyasının bağımlı kaydı.

bilgisayarın restart yapması

oyun oynarken bilgisayarın restart yapması

Aynı Anda 2 Ses Kaydı: Mikrofon + Müzik

En hızlı ve en iyi antivirüs

Oyun oynarken Pc donuyor Format Attım...

Bu bilgisayar Windows 7'yi çalıştırır...

i3,i5 ve i7 işlemciler

iPhone hakkında

PackardBell Isınma Sorunu

Twetle ve facebook paylaş butonları

word 2003 filigran ekleme

Laptop pil ömrü hakkında. Anlam...

Bios'tan Usb yi tanıtmak..! Acil...