Kayıt Bulunamadı

<% End If %> <% if Sayfa="" or Sayfa="Kurumsal" then %> <% If KAD="" then %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori,C.kategori from sayfa A, bolumler B,bolumalt C where A.KAD=C.KAD and A.KAT=B.KAT and A.KAD=1 ", baglanti, 1, 3 %> <% Else %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori,C.kategori from sayfa A, bolumler B,bolumalt C where A.KAD=C.KAD and A.KAT=B.KAT and A.KAD="&KAD&" ", baglanti, 1, 3 %> <% End If %> <% If ty1.eof then %>

• Anasayfa
•    Atlas Denetim    

Kayıt Bulunamadı

<% Else %>

• Anasayfa
•    Atlas Denetim    <%=ty1(8)%>

<%=ty1(9)%>

• <% If Not IsNull (ty1(2)) Then %> <% Else %> <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>

  <% End If %>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  <%=ty1(7)%>

<% End If %> <% ty1.Close %> <% End If %> <% If Sayfa="Mevzuat" then %> <% If ID="" Then %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.onay=yes and A.KAT=B.KAT and A.KAT=4 Order by A.tarih DESC, A.ID DESC", baglanti, 1, 3 Toplam = ty1.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 %> <% else %>

• Anasayfa
•    Atlas Denetim    

<% intGecerliSayfa = Request.Querystring("sayfala") If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 ty1.PageSize = 20 intSayfaSayisi= ty1.PageCount ty1.AbsolutePage =intGecerliSayfa For m = 1 to 20 If ty1.Eof Then Exit For %>
• <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  Devamı
<% ty1.Movenext:Next End If %>
• <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik %> <% If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If intGecerliSayfa >1 Then %>
  <% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "" %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "
  • " Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "" %> <% For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %>
  <% End If %>

<% ty1.Close %> <% Else %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.ID="&ID&" ", baglanti, 1, 3 %> <% If ty1.eof Then %>

• Anasayfa
•    Atlas Denetim     Mevzuatlar

Kayıt Bulunamadı..

<% Else %>

• Anasayfa
•    Atlas Denetim     Mevzuatlar

• <% If Not IsNull (ty1(2)) Then %> <% Else %> <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>

  <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  <%=ty1(7)%>

• Mevzuatların Tümü

<% End If %> <% ty1.Close %><% End If %><% End If %> <% If Sayfa="Guncel" then %>

• Anasayfa
•    Atlas Denetim    

<% End If %> <% If Sayfa="EskiGuncel" then %> <% If ID="" Then %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.onay=yes and A.KAT=B.KAT and A.KAT=3 Order by A.tarih DESC, A.ID DESC", baglanti, 1, 3 Toplam = ty1.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 %> <% else %>

• Anasayfa
•    Atlas Denetim    

<% intGecerliSayfa = Request.Querystring("sayfala") If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 ty1.PageSize = 20 intSayfaSayisi= ty1.PageCount ty1.AbsolutePage =intGecerliSayfa For m = 1 to 20 If ty1.Eof Then Exit For %>
• <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  Devamı
<% ty1.Movenext:Next End If %>
• <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik %> <% If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If intGecerliSayfa >1 Then %>
  <% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "" %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "
  • " Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "" %> <% For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %>
  <% End If %>

<% ty1.Close %> <% Else %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.ID="&ID&" ", baglanti, 1, 3 %>

• Anasayfa
•    Atlas Denetim     Güncel Bilgiler

• <% If Not IsNull (ty1(2)) Then %> <% Else %> <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>

  <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  <%=ty1(7)%>

• Güncel Bilgilerin Tümü

<% ty1.Close %><% End If %> <% End If %> <% If Sayfa="Haber" then %> <% If ID="" Then %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.onay=yes and A.KAT=B.KAT and A.KAT=5 Order by A.tarih DESC, A.ID DESC", baglanti, 1, 3 Toplam = ty1.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 %> <% else %>

• Anasayfa
•    Atlas Denetim    

<% intGecerliSayfa = Request.Querystring("sayfala") If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 ty1.PageSize = 20 intSayfaSayisi= ty1.PageCount ty1.AbsolutePage =intGecerliSayfa For m = 1 to 20 If ty1.Eof Then Exit For %>
• <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  Devamı
<% ty1.Movenext:Next End If %>
• <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik %> <% If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If intGecerliSayfa >1 Then %>
  <% End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "" %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "
  • " Else %>
  • <% End If Response.Write i &"
  " Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "" %> <% For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write "" Else %>
  • <% End If Response.Write i &"
  " Next %> <% If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %>
  <% End If %>

<% ty1.Close %> <% Else %> <% ty1.open "Select A.ID,A.resim,A.video,A.tarih,A.baslik,A.kisa,A.kisa1,A.detay,B.kategori from sayfa A, bolumler B where A.ID="&ID&" ", baglanti, 1, 3 %>

• Anasayfa
•    Atlas Denetim     Haberler / Duyurular

• <% If Not IsNull (ty1(2)) Then %> <% Else %> <% If Not IsNull (ty1(1)) Then %> <% Else %> <% End If %>

  <% End If %>
  • <%= Day(ty1(3)) %> <%=monthname(month(ty1(3)))%>

  <%=ty1(4)%>

  <%=ty1(5)%>

  <%=ty1(6)%>

  <%=ty1(7)%>

• Haberlerin Tümü

<% ty1.Close %> <% End If %> <% End If %>

ATLAS Bağımsız Denetim Yeminli Mali Müşavirlik A.Ş. Copyright 2016

ANASAYFA KURUMSAL HİZMETLERİMİZ MEVZUAT GÜNCEL HABERLER İLETİŞİM

Yukarı

<% baglanti.Close Set baglanti = Nothing %>