<% if Len(Session("uid"))= 0 then call giris_yapmamis else call giris_yapmis end if %> <%sub giris_yapmamis%>

Üye Girişi •Üye Ol ! •Şifremi Unuttum

<% end sub %> <%sub giris_yapmis%> <% Set uset = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from uyeler Where uid = "&session("uid") uset.open SQL,bag,1,3 %>

SB TOPRAKLARINDASINIZ <%=uset("adi")%> <%=uset("soyadi")%> •Bilgilerim •Tüm Üyeler

<% end sub %>