...................... .............................
AŞK ACISI

BekLerken Seni..
1 Tanemsin..
YaLnızLığım..
Aşk

  • Nedensiz Gidişlere...
  • Chatlak Hababam.!.
  • Yurtseven K.-KanKa-.

  • ByuĞuR
  • KenJii
  • .......................................



    ..............
    <% Set baglanti = Server.CreateObject("ADODB.Connection") baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/db.mdb") %> <% if Session("durum")="giris_yapmis" then %> <% Set rs = Server.CreateObject("Adodb.Recordset") id = Session("id") Sorgu = "Select * from uyeler where id= " & id rs.Open Sorgu, Baglanti, 1, 3 if rs.eof then Response.Write "
    Üye bilgisi bulunmamaktadır!
    " else %> Kullanıcı Adı: <%=rs("kullanici_adi")%> ÇIKIŞ YAP <% end if %> <%else %>








    UYARI:

    Lütfen giriş yapınız!

    Anasayfa
    <% end if %> <% Session("durum")="" Response.Cookies("TekTech")("kullanici_adi")="" Response.Cookies("TekTech")("sifre")="" Session("id")="" %> <% Response.Redirect "giris.asp" %>