<% hfISLEM = Request("hfISLEM") If hfISLEM = "ok" then txtEPOSTA = Replace(Trim(Request("txtEPOSTA")),"'","") txtSIFRE = Replace(Trim(Request("txtSIFRE")),"'","") If txtEPOSTA = "" Or txtSIFRE = "" Then msg_sonuc = "Eksik bilgi girişi" Else Set VeriRS = DataConn.Execute("Select * From TBL_UYELER Where aktif=1 and eposta='" & txtEPOSTA & "' and sifre='" & txtSIFRE & "'") If Not VeriRS.Eof Then If (txtEPOSTA = VeriRS("eposta") And txtSIFRE = VeriRS("sifre")) Then Session.Timeout = 60 Session("uye") = VeriRS("adsoyad") Response.Redirect("/?cmd=logged") Else msg_sonuc = "Giriş bilgileri hatalı" End If Else msg_sonuc = "Giriş bilgileri hatalı" End If Set VeriRS = Nothing End If End If %> Maya Klinik Kadın Sağlığı Merkezi
 
     <% if Session("uye")="" then Response.Write("Üye olmak istiyorum") Else Response.Write("" & Session("uye") & "") End if %> <% if Session("uye")="" then Response.Write("Üye girişi") Else Response.Write("Çıkış") End If%>   <%=Date%>  
      
ANASAYFA          HAKKIMIZDA         HABERLER         SANAL TUR          KARİYER          İLETİŞİM          SSS          SİTE HARİTASI














ÜYE GİRİŞİ
<% if msg_sonuc<>"" then Response.Write("")%>
" & msg_sonuc & "
Üye Giriş Bilgileriniz
E-posta adresiniz :
Şifreniz :
   
 
 
Gizlilik ve Güvenlik              Yasal Kullanım             Tavsiye Et              Internete Giriş Sayfası Yap              Sık Kullanılanlara Ekle              Geri              İleri
© MAYAKLİNİK SAĞLIK HİZMETLERİ LTD.ŞTİ.