Asp De Kullanıcı Adı Ve E-posta Sorgulamasını Nsl

[BURSAALPER]

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

%>

[cumman]

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

[BURSAALPER]

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

[wmismail]

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,3

if tablo.eof then
Response.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.