---
yanlış anladım pardon.!
Merhaba,
Kodları olabildiğince azalttım ki öğrenmek istediğim şeyi anlatabileyim:
Kod:uyeAdi = request.form("kullAdi") if not IsEmpty(Request.form("btnUyeOl")) Then If request.form("kullAdi")="" Or request.form("sifre") = "" Or (#####) Then If request.form("kullAdi")="" Then response.write "<p>Üye Adınızı giriniz</p>" If request.form("sifre")="" Then response.write "<p>Şifrenizi giriniz</p>" uyeKullKontrol(uyeAdi) Else response.write "Başarıyla Kayıt Oldunuz" End If End If Function uyeKullKontrol(kullAdimiz) Set uye = bag.execute("SELECT kullAdi FROM tbl_uye WHERE kullAdi='"&kullAdimiz&"' ") Response.Write("<p>Bu üye adı kullanılmaktadır</p>") Set uye = Nothing End Function
Şimdi yukarıda koyu ile belirttiğim (#####) işaretinin yerine formdan gelen üye adının veritabanında varlık yokluk kontrolünü getirmek istiyorum, bunu nasıl yapabilirim?
---
yanlış anladım pardon.!
Mesaj _efendy_ tarafından 02.11.2008 (16:41) yeniden düzenlendi.
Siz üye girişi sandınız sanırım, şifreyi kontrol ettirmeye gerek yok. Bu ve bunun gibi birçok fonksiyon şekli denedim
(kullKontrol(uyeAdi)=true, kullKontrol(uyeAdi,true) gibi) -tabi bunu yukarda belirtmemem benim hatam- ancak fonksiyonu her türlü atlıyor, işleme almıyor.
Bir de execute metodunda close yapmışsınız buna gerek yok belirtmek istedim.
Fonksiyon kullanmadan şu şekilde oluyor, fakat benim öğrenmek istediğim bunun harici bir yöntemin yapılıp yapılamayacağı:
Kod:uyeAdi = strDuzelt(request.form("kullAdi")) Set uye = bag.execute("SELECT kullAdi FROM tbl_uye WHERE kullAdi='"&uyeAdi&"' ") If Not uye.eof Then userExID=True Set uye = Nothing if not IsEmpty(Request.form("btnUyeOl")) Then If request.form("kullAdi")="" Or request.form("sifre") = "" Or userExID=True Then If request.form("kullAdi")="" Then response.write "<p>Üye Adınızı giriniz</p>" If request.form("sifre")="" Then response.write "<p>Şifrenizi giriniz</p>" Call uyeKullKontrol(uyeAdi) Else response.write "Başarıyla Kayıt Oldunuz" End If End If Function uyeKullKontrol(kullAdimiz) Set uye = bag.execute("SELECT kullAdi FROM tbl_uye WHERE kullAdi='"&kullAdimiz&"' ") Response.Write("<p>Bu üye adı kullanılmaktadır</p>") Set uye = Nothing End Function
amacın fonksiyon yazarak halletmek mi?
Evet ama nasıl bir fonksiyon işte sorun orada
Şuan işimi görüyorum ama dediğim gibi bunu bir fonksiyonla yapsaydık nasıl yapmamız gerekirdi, bunu if then arasında nasıl okutabilirdik bunu öğrenmek niyetindeyim.
Kod:<% Function kullanici_dogrula(kullanici) Set uye = bag.execute("SELECT kullAdi FROM tbl_uye WHERE kullAdi='"&kullanici&"' ") If Not uye.eof Then kullanici_dogrula=true else kullanici_dogrula=false end if Set uye = Nothing End Function %>Kod:If request.form("kullAdi")="" Or request.form("sifre") = "" Or kullanici_dogrula(Uyeadi)=false Then
bi sorun çıkmaması lazım.
Mesaj _efendy_ tarafından 03.11.2008 (12:32) yeniden düzenlendi.