<%
if session("aktif_uyemiz") <> "" then
%>
<html>
<%
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 rg, sifre, adi, soyadi, bolum, dogum, yer, mail from uyelik where num='" & session("aktif_uyemiz") & "'",conn,3,3
%>

<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>PROFİL GÜNCELLEŞTİR</title>
<style fprolloverstyle>A:hover {color: #949494}
</style>
</head>

<body topmargin="0" leftmargin="0" bgcolor="#F9F9F9" link="#000000" vlink="#000000" alink="#000000">

<p><font face="Verdana" size="2"><b></b></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<%
if request("sifre")=request("sifre2") then
rst("rg")=request("rg")
rst("sifre")=request("sifre")
rst("adi")=request("adi")
rst("soyadi")=request("soyadi")
rst("dogum")=request("dogum")
rst("yer")=request("yer")
rst("mail")=request("mail")
rst.update
Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & "Bilgileriniz güncellendi ..."
else
Response.Write "Girdiğiniz şifreler birbirine uymuyor !.."
end if
%></p>
<BR><BR>
<p>&nbsp;</p>
<p></font>
</p><br><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="323" id="AutoNumber1">
  <tr>
    <td width="40">&nbsp;</td>
    <td width="17">
    <img border="0" src="../../IMAGES/OGR/profil/oksol.gif"></td>
    <td width="99"><font face="Verdana" size="2">
    <a href="javascript:history.back()" style="text-decoration: none">Geri Dön</a>
    </font></td>
    <td width="16"><font face="Verdana" size="2">
    <img border="0" src="../../IMAGES/OGR/profil/close.gif" width="16" height="16"></font></td>
    <td width="151"><font face="Verdana" size="2"><a href="javascript:window.close()" style="text-decoration: none">Pencereyi 
    Kapat</a></font></td>
  </tr>
</table>
<p><font face="Verdana" size="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</font>
</p>

</body>

</html>
<%
else
Response.Write "Bu sayfa öğrencilere özel sayfadır. Eğer öğrenciyseniz ana sayfadan giriş yapınız."
end if
%>