<%@LANGUAGE=VBScript CODEPAGE=1254%> <% If Session("gel_sayi")="" Then sql="SELECT sayi.sayi_no FROM sayi WHERE (((sayi.onay)=3));" Set oRs=oConn.Execute(sql) Session("gel_sayi")=oRs(0) End If sql="SELECT sayi.sayi_no, sayi.sayi_Yil, sayi.sayi_ay, sayi.onay FROM sayi WHERE (((sayi.onay)=1));" Set oRs=oConn.Execute(sql) sayi=oRs(0) bu_yil=oRs(1) Dim Tip, anket Tip=Request.QueryString("tip") anket=Request.QueryString("anket") If Tip="" and anket="" Then Tip="İçindekiler" If Anket<>"" Then Tip="Anket" %> <%=isim%>
 
   <%=Tip%>
<%If Tip="İçindekiler" Then%> <%End If%> <%If Tip="Arşiv Sayılar" Then%> <%End If%> <%If Tip="Makale" Then%> <%End If%> <%If Tip="Güncel Arşiv" Then%> <%End If%> <%If Tip="Güncel Yazı" Then%> <%End If%> <%If Tip="Bağlantılar" Then%> <%End If%> <%If Tip="Kütüphanemiz" Then%> <%End If%> <%If Tip="Kitaplar" Then%> <%End If%> <%If Tip="Kitap" Then%> <%End If%> <%If Tip="Yayınlarımız" Then%> <%End If%> <%If Tip="Abone" Then%> <%End If%> <%If Tip="Üyelik" Then%> <%End If%> <%If Tip="Künye" Then%> <%End If%> <%If Tip="Dizin" Then%> <%End If%> <%If Tip="Tüm Dizin" Then%> <%End If%> <%If Tip="Toplantı Notları" Then%> <%End If%> <%If Tip="Toplantı" Then%> <%End If%> <%If Tip="Orkun Arama" Then%> <%End If%> <%If Tip="Türkçü Vebler" Then%> <%End If%> <%If Tip="Site İstatistikleri" Then%> <%End If%> <%If Tip="Site Eklentileri" Then%> <%End If%> <%If Tip="Türkçü veb" Then%> <%End If%> <%If Anket="58 anket" Then%> <%End If%> <%If Tip="Yesevi Kimdir" Then%> <%End If%>


<%=sayi%>.Nu lu Sayı
Arama