
<html>

<head>
<meta http-equiv="Content-Language" content="tr">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>ÖĞRENCİ GİRİŞİ KONTROL SAYFASI</title>
<style fprolloverstyle>A:hover {color: #000000}
</style>
</head>

<body link="#808080" vlink="#808080" alink="#808080">

<p>&nbsp;</p>
<p>&nbsp;</p>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%">
    <p align="center">
    <img src="IMAGES/OGR/arma.jpg" border="0"><br>
    <br>
    <br>
    
    <p align="center"><b><font face="Verdana" size="2">&nbsp;<%
if request("num") <> "" then
if request("T2") <> "" then
Dim db_yolu,dsn
db_yolu = Server.MapPath("db/vt.mdb")
dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db_yolu
Set conn=CreateObject("Adodb.Connection")
conn.open (dsn)
Set rst=CreateObject("Adodb.Recordset")
rst.open "Select num, sifre, aktif, say from uyelik where num='" & request("num") & "'",conn,3,3
if rst.recordcount <> 0 then
if rst("sifre") = request("T2") then
rst("aktif")= 1
rst("say")=rst("say")+1
rst.update
session.timeout=40
session("aktif_uyemiz") = request("num")
Response.Redirect "ogr/default.asp"
else
Response.Write "Şifrenizi yanlış girdiniz. "&"</b>"&"(Büyük küçük harf hassasiyeti vardır)"&"<b>" 
end if
else
response.write "<font color=red> " & "" & request("num") & "</font>&nbsp;" & " > Bu numarayla kayıtlı bir öğrenci bulunmamaktadır."
response.write "<br><br>&nbsp&nbsp;" & "Ziyaretçi girişi için " & "<a href=zyr/default.asp>" & "tıklayınız" & "</a>"
end if
else
response.write "Şifrenizi giriniz."
end if
else
response.write "Öğrenci numaranızı giriniz."

end if

%></font></b></p>
    </td>
  </tr>
</table>
<p align="center"><b><font face="Verdana" size="2">&nbsp;<a href="index.html">Geri Dön</a></font></b></p>

</body>

</html>