BURSAALPER Posted July 2, 2008 Share Posted July 2, 2008 Asp de kullanıcı adı ve e-posta sorgulaması yapmak istiyorum. kullanıcı kayıt sayfasındaki üye bilgilerim accessta hazırldaığım db. mdb ye kaydediliyor. ama tekrar aynı isimle kayıt yapıyor. ben aynı isimle ya da aynı e-mail adresiyle kayıt yapmaya çalıştığım zaman accesstaki db.mdb de sorgulayıp "bu e-posta ya da kişi adı daha önce alınmış yazısının gelmesini istiyorum. lütfen yardım edin. yardımcı olursanız çok sevinirim. hangi kodları kullanmam lazım....... <% if request.QueryString("cmd")="add" Then if Request.Form("Kuladi") = "" Then Kuladi_C = "False" end if 3 if Request.Form("sifre") = "" Then Sifre_C = "False" end if if Request.Form("ad") = "" Then ad_C = "False" end if if Request.Form("soyad") = "" Then soyad_C = "False" end if if Request.Form("email") = "" Then email_C = "False" end if if Request.Form("gun") = "" Then gun_C = "False" end if if Request.Form("ay") = "" Then ay_C = "False" end if if Request.Form("yil") = "" Then yil_C = "False" end if if Request.Form("sehir") = "" Then sehir_C = "False" end if if Request.Form("cinsiyet") = "" Then cinsiyet_C = "False" end if if not (Kuladi_C = "False" or sifre_C = "False" or ad_C = "False" or soyad_C = "False" or email_C = "False" or gun_C = "False" or ay_C = "False" or yil_C = "False" or sehir_C = "False" or cinsiyet_C = "False") Then Yalnız Bu kısımda bir ayar girmem gerekiyor sanırım.email i ve kullanıcı adını sorgulamasını istiyorum. ne yapmam lazım. daha önceden kuladi ve email alındıysa bu email ya da kullanıcı adı daha önceden alınmış yazısının ekrana çıkmasını istiyorum. nasıl yapabilirim Set UyeKontrol = server.CreateObject("Adodb.recordset") UyeKontrol.open "select *from UyeKayit where kuladi like '"& kuladi &"' ", baglan 1,2 Kontrol= UyeKontrol.recordcount if Kontrol <> 0 then Response.Write("Bu kullanıcı adı daha önce alınmış") else Set UyeKayit = server.CreateObject("ADODB.Recordset") UyeKayit_Sql = "select *from UyeKayit" UyeKayit.open UyeKayit_Sql, baglan, 1,3 UyeKayit.addnew UyeKayit("kuladi")= Request.Form("Kuladi") UyeKayit("sifre")= Request.Form("sifre") UyeKayit("adi")= Request.Form("ad") UyeKayit("soyadi")= Request.Form("soyad") UyeKayit("email")= Request.Form("email") UyeKayit("dogumyili-gun")= Request.Form("gun") UyeKayit("dogumyili-ay")= Request.Form("ay") UyeKayit("dogumyili-yil")= Request.Form("yil") UyeKayit("sehir")= Request.Form("sehir") UyeKayit("cinsiyet")= Request.Form("cinsiyet") UyeKayit.Update Response.Redirect("kullanici_kayit.asp?cmd=ok") end if end if end if %> Link to comment Share on other sites More sharing options...
cumman Posted July 2, 2008 Share Posted July 2, 2008 do until rs.EOF if varvar=rs("secilen") then secilen=" Selected" else varSelected=" " end if if secilen="Selected" then response.write("Bu isim veya mail var") else kaydet() rs.MoveNext loop rs.close Set rs= Nothing bu fonksiyonu kendine göre ayarla kullan. do until olarak tarat eklemelerde spnuna kadar baksın her satırda kontrol etsin varmı yokmu diye do until rs.EOF if varvar=rs("secilen") then secilen=" Selected" else varSelected=" " end if if secilen="Selected" then response.write("Bu isim veya mail var") else kaydet() end if rs.MoveNext loop rs.close Set rs= Nothing bu fonksiyonu kendine göre ayarla kullan. do until olarak tarat eklemelerde spnuna kadar baksın her satırda kontrol etsin varmı yokmu diye Link to comment Share on other sites More sharing options...
BURSAALPER Posted July 2, 2008 Author Share Posted July 2, 2008 do until rs.EOF if varvar=rs("secilen") then secilen=" Selected" else varSelected=" " end if if secilen="Selected" then response.write("Bu isim veya mail var") else kaydet() rs.MoveNext loop rs.close Set rs= Nothing bu fonksiyonu kendine göre ayarla kullan. do until olarak tarat eklemelerde spnuna kadar baksın her satırda kontrol etsin varmı yokmu diye do until rs.EOF if varvar=rs("secilen") then secilen=" Selected" else varSelected=" " end if if secilen="Selected" then response.write("Bu isim veya mail var") else kaydet() end if rs.MoveNext loop rs.close Set rs= Nothing bu fonksiyonu kendine göre ayarla kullan. do until olarak tarat eklemelerde spnuna kadar baksın her satırda kontrol etsin varmı yokmu diye yardımın için çok tşk ederim ama bana biraz karışık geldi. kodlarım yukarıda kendime göre nasıl uyarlayabilirim. kendime göre uyarlama konusunda biraz yardımcı olur musun, benim kodlarıma bakarak Link to comment Share on other sites More sharing options...
wmismail Posted September 9, 2008 Share Posted September 9, 2008 o söylediğin yere şunu girmelisin. set tablo = server.createobject("adodb.recordset")sql="select * from üyeler where kuladi = "&if Request.Form("Kuladi")&" and e-mail = "&if Request.Form("e-mail")&""tablo.open sql,baglantiadi,1,3if tablo.eof thenResponse.write ("daha önce bu kullanıcı adı veya şifre alınmış.")else..end if[/CODE] kodları kafadan yazdım. Bağlantı ve tablo isimlerini kendine göre uyarla. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.