Anasayfa|
  

 

 

 


<% Dim sql Dim kln Dim pwd sub openStaticRS(rs, sql,cn) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 2 rs.Open sql, cn end sub kln=Request("kln") pwd=Request ("pwd") if Session("CONN")<>"TRUE" and kln ="" then %>
Kullanıcı Adı :
Şifre :

Sifremi Unuttum
 <% else dim cn Set cn = Server.CreateObject("ADODB.Connection") session("CONN")="" cn.open strConnUser '// , strLogin, strPassword session("CONN")="TRUE" if Session("CONN")="TRUE" then sql="select * from U_USERS " sql=sql & "Where USER_KLN='" & kln & "' " sql=sql & " and USER_PWD='" & pwd & "' " openStaticRS rs,sql,cn if rs.eof then Response.Write ("Bilgiler Hatalı") end if sub openStaticRS(rs, sql,cn) Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 2 rs.Open sql, cn end sub kln=Request("kln") pwd=Request ("pwd") if Session("CONN")<>"TRUE" and kln ="" then %> <% else Session("KLN")=kln Response.Write ("

Hoşgeldiniz " & kln & " .

") end if end if Set rs = Nothing cn.close set cn=nothing Session("CONN")="fals" end if %>
Görüntü en iyi 1024 x 768 çözünürlükte elde edilmektedir.
Üniversiteler
Ahmet Yesevi Üniversitesi
10. Sk. No:30 Bahçelievler Tel :2152206
Ankara Üniversitesi
Dögol Caddesi, 06100 Tandoğan Tel :212 60 40
Atlas Uluslararası Eğitim
Tunalı Hilmi Cad.Kuğulu Apt. No:123/32 1.Kat Kavaklıdere Tel :4269820
Atılım Üniversitesi
İncek Köyü 06836 Tel :460 20 20
Başkent Üniversitesi
Eskişehir Yolu 20.Km Bağlıca Kampüsü 06530 Tel :2341010
Bilkent Üniversitesi
Bilkent Üniversitesi 06533 Eskişehir Yolu Tel :2904000
Devlet Konservatuvarı Tiyatro Bölümü
Hacettepe Üniversitesi Devlet Konservatuvarı • Beşevler
Fatih Üniversitesi
Çiftlik Cad. No:57 06510 Emek Tel :2126262
Gazi Ün.Mesleki Eğitim Fakültesi
Gazi Üni. Mesleki Eğ.Fak.İçi Beşevler
Gazi Üniversitesi
Gazi Üniversitesi Rektörlüğü 06500 Teknikokullar Tel :212 68 40
Hacettepe Üniversitesi
Hacettepe Üniviversitesi Beytepe Tel :3055050
Odtü
Odtü Eskişehir Yolu Tel :2100000
Çankaya Üniversitesi
Öğretmenler Cad. No:1 12/2 100.Yıl Tel :284 4500