access aynı kaydı 2 kez yapması

turgenc34 · **access aynı kaydı 2 kez yapması -** 09.02.2010, 01: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, 21: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.

Alıntı:

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, 03: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ü..?

Alıntı:

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, 22: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, 14: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