<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' MyDesign Haber ' http://www.mydesign.gen.tr ' Yönetim Sayfası Üye Girişi Bölümü Kodları ' Son Düzenleme: 23 Eylül 2007 (v0.5) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" blnGiris = True strKullanici = Temizle(Trim(Request.Form("kullanici"))) strSifre = Temizle(Trim(Request.Form("sifre"))) If Len(strKullanici) < 4 OR Len(strSifre) < 4 Then blnGiris = False Else strMDSifre = MD(strSifre) kdGenel.Open "SELECT uyeID, Kullanici, sifre, Kod FROM tblUyeler WHERE uyeID <> 2 AND kullanici = '"& strKullanici &"' AND sifre = '"& strMDSifre &"'", adoCon, 1, 3 If kdGenel.EOF Then blnGiris = False Else blnGiris = True Response.Cookies(strCerezAdi)("uye") = kdGenel("Kod") Response.Cookies(strCerezAdi).Expires = Now() + 30 End If kdGenel.Close End If %> <%=strSiteAdi%> Yönetim Paneli <% If blnGiris = True Then %><% End If %>

<% If blnGiris = False Then %>

Üye Girişi Başarısız

Geri Dön

<% Else %>

Üye Girişi Başarılı

Şuanda yönetim paneline yönlendiriliyorsunuz...

Yönetim Paneline Gitmek İçin Tıklayın

<% End If %>