<%
if session("aktif_uyemiz") <> "" then
%>
<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>Yeni Sayfa 1</title>
</head>

<body topmargin="0" leftmargin="0">

<div align="center">
  <center>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="779" id="AutoNumber1">
  <tr>
    <td width="722">Test yayını.... Buraya resim gelecek...<br>
&nbsp;<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778" id="AutoNumber2">
      <tr>
        <td width="576" valign="top" style="border-left-width: 1; border-top-style: dashed; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1">
        <font face="Verdana" size="2">&nbsp;<font color="#FF0000">&nbsp;<% Response.Write session("aktif_uyemiz") %></font>
        <font color="#800000">&nbsp;  </font> </font>
        <font color="#800000"><b><span lang="en">
        <font face="Verdana" size="1">»</font></span></b></font><font face="Verdana" size="2"> Toplam Ziyaretin: 
        <%
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,say from uyelik where num='" & session("aktif_uyemiz") & "'",conn,3,3
Response.Write rst("say")
rst.close
%>
       
        <font color="#FF0000">|</font> Online: <%
rst.open "Select aktif from uyelik where aktif=1 ",conn,3,3
Response.Write rst.recordcount 
%> </font></td>
        <td width="202" valign="top" style="border-left-width: 1; border-top-style: dashed; border-top-width: 1; border-bottom-style: dashed; border-bottom-width: 1">
       <font face="Verdana" size="2"> 
        <% =date %>&nbsp;<%= WeekdayName(Weekday(Date)) %> <font color="#FF0000">|</font>&nbsp;<% =Mid(time, 1,5) %> </font></td>
      </tr>
    </table>
    </td>
  </tr>
</table>

  </center>
</div>

</body>

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