üye Profil Sayfası Sorunu

[BURSAALPER]

ŞİMDİ SORUN ŞU. BENDEKİ KODLAR BU ŞEKİLDE BU ŞEKİLDE HER ŞEYİ VERİTABANINA KAYIT YAPABİLİYORUM, AYNI İSİMLE KAYIT YAPMASINI ENGELLİYORUM. AMA ÜYE GİRİŞ YAPTIĞINDA DİREKT UYE.ASP YE YÖNLENDİRİYOR VE VERİTABANINA BAĞLANMADAN ÜYE.ASP DEKİ PROFİL KISMININ KARŞISI BOŞ BİR ŞEKİLDE GELİYOR. AYNI ALİ VELİ İSİMLİ GİRİŞ YAPTIĞINDA ALİ VELİYE AİT BİLGİLER PROFİL SAYFASINDADA LİSTELENSİN İSTİYORUM. DERSTEKİ GİBİ AMA OLMUYOR BİR YERDE HATA VAR. ÜYE GİRİŞ YAPTIĞINDA UYEKONTROL.ASP DEN SORGULAMA YAPILIP UYEYE AİT BİLGİLER UYE.ASP DE LOGIN OLSUN VE LİSTELENSİN İSTİYORUM. BUNU NASIL YAPABİLİRİM LÜTTFEN YARDIMCI OLUN YARDIMLARINIZI BEKLİYORUM. YARDIMCI OLURSANIZ ÇOK SEVİNİRİM. ŞİMDİDEN ÇOK TŞK LER

http://www.egitimofis.com/Play.asp?ID=447

şimdi ben bu linkteki dersi izledim aynısını kelime kelimesine yapıyorum olmuyor. elimdeki örnek sayfalardaki asp kodları ise şunlar

db.asp

<%

Vt_Yol=Server.Mappath("Vtabandb.mdb")

Set Baglan=Server.CreateObject("Adodb.Connection")

Baglan.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"

Set Rs=Server.CreateObject("Adodb.Recordset")

%>

dbclose.asp

<%

Rs.Close

Set Rs = Nothing

Baglan.Close

Set Baglan = Nothing

%>

get.asp

<%

Dim formAdlari

Dim formDolu

Dim Kuladi

Dim email

Dim satirSayisi

formAdlari = Array("Kuladi", "sifre", "ad", "soyad", "email", "gun", "ay", "yil", "sehir", "cinsiyet")

formDolu = true

Kuladi = Request.Form("Kuladi")

email = Request.Form("email")

If Request.QueryString("cmd") = "add" Then

For Each item In formAdlari

If trim(Request.Form(item)) = "" Then

formDolu = false

If NOT formDolu Then Exit For

End If

Next

If formDolu Then

UyeKontrol_Sql = "SELECT COUNT(*) AS SatirSayisi FROM UyeKayit WHERE Kuladi=`" & Kuladi & "` OR email=`" & email & "`"

Rs.Open UyeKontrol_Sql, Baglan

satirSayisi = CInt(Rs("SatirSayisi"))

Rs.Close

If satirSayisi = 0 Then

UyeKayit_Sql = "SELECT * FROM UyeKayit"

Rs.Open UyeKayit_Sql, Baglan, 1, 3

Rs.AddNew

For Each item In formAdlari

Rs(item) = Request.Form(item)

Next

Rs.Update

Response.Redirect("kayit_onaylandı.asp")

Else

Response.Redirect("kayitliuye.asp")

End If

Else

Response.Write("<center>Formda Eksik Alan Bırakılamaz</center>")

End If

End If

%>

uyegiris.asp

<%

set Uye = server.CreateObject("adodb.recordset")

Uye.open "select * from UyeKayit where Kuladi like `"&Session("Kuladi")&"` and sifre `"&Session("sifre")&"` " , baglan, 1,2

%>

<td><form id="form1" name="form1" method="post" action="">

<table width="100%" border="0" align="left" bgcolor="#DBDBDB">

<tr>

<td background="uyekayitformu.asp"><div align="center"><span class="highlight">Lütfen Giriş Yapınız</span> </div>

<p></p>

<table border="0" cellpadding="0" cellspacing="0">

<tr>

<td><span class="stil20">Kullanıcı Adı</span><span class="stil21">:</span>

<label></label></td>

<td><input name="Kuladi" type="text" id="Kuladi" size="14" maxlength="14" /></td>

</tr>

<tr>

<td><span class="stil20">Şifre</span><span class="stil21">:</span></td>

<td><input name="sifre" type="password" id="sifre" size="14" maxlength="14" /></td>

</tr>

</table>

<p>

<label>

<input name="giris" type="submit" id="giris" onclick="MM_goToURL(`parent`,`uye.asp`);return document.MM_returnValue" value="GİRİŞ YAP" />

</label>

<input name="kayitol" type="submit" id="kayitol" onclick="MM_goToURL(`parent`,`uyekayitformu.asp`);return document.MM_returnValue" value="KAYIT OL" />

</p></td>

</tr>

</table>

</form></td>

uye.asp

<form id="form1" name="form1" method="post" action="">

<table width="101%" border="0" cellpadding="2" cellspacing="0" class="panel">

<tr>

<td height="40" colspan="5" class="stil1"><div align="center">PROFİL SAYFANIZA HOŞ GELDİNİZ</div></td>

</tr>

<tr>

<td height="57" colspan="4" class="stil3"><div align="center"><a href="index.asp"><img src="butons/ebbtcbbutons24_0.gif" alt="e" width="85" height="32" border="0" />[/url]<img src="butons/ebbtcbbutons21_0.gif" alt="e" width="76" height="32" /><img src="butons/ebbtcbbutons22_0.gif" alt="e" width="99" height="32" /><img src="butons/ebbtcbbutons23_0.gif" alt="e" width="84" height="32" /> </div></td>

</tr>

<%

set Uye = server.CreateObject("adodb.recordset")

Uye.open "select * from UyeKayit where Kuladi like `"&Session("Kuladi")&"` and sifre `"&Session("sifre")&"` " , baglan, 1,2

%>

<tr>

<td width="20%" rowspan="7" valign="top" class="hucrekenarlik"> </td>

<td width="19%" class="stil3 stil19">Kullanıcı Adı</td>

<td width="1%" class="stil3 stil19">:</td>

<td width="60%" class="stil3 stil19"></td>

</tr>

<tr>

<td class="stil3 stil19">Sifre</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"> </td>

</tr>

<tr>

<td class="stil3 stil19">Adı</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"></td>

</tr>

<tr>

<td class="stil3 stil19">Soyadı</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"> </td>

</tr>

<tr>

<td class="stil3 stil19">Mail Adresi</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"> </td>

</tr>

<tr>

<td class="stil3 stil19">Doğduğunuz Şehir</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"> </td>

</tr>

<tr>

<td class="stil3 stil19">Cinsiyet</td>

<td class="stil3 stil19">:</td>

<td class="stil3 stil19"> </td>

</tr>

</table>

</form>

http://www.egitimofis.com/Play.asp?ID=447

lütfen linkteki dersi izleyin, beni daha iyi anlayacaksınız, yardımlarınızı bekliyorum, yardımcı olursanız çok sevinirim, şimdiden çok tşk ler

[BURSAALPER]

yok mu yardım edecek bir usta. yardımlarınızı bekliyorum