%@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"
%>