%
'***********************************************************************
'** Copyright (C) 2007 Hedef İletişim Yönetimi
'**
'** Hedef İnternet Hizmetleri
'**
'** efsaneadam2000@hotmail.com
'***********************************************************************
%>
<%'** BAŞLANGIÇ - BU SATIR DEĞİŞTİRİLEMEZ VE KALDIRILAMAZ%>
<%'** BİTİŞ - BU SATIR DEĞİŞTİRİLEMEZ VE KALDIRILAMAZ%>
DOST SİTELER
<%
If Session("AdminLogin") = True <> True Then Response.Redirect("admin_login.asp")
%>
|
|
Tüm Dost Siteler |
<%
Sorgu = "SELECT * FROM dost where onay=1 order by dost_ID desc"
set dostsite = server.createobject("ADODB.Recordset")
dostsite.open Sorgu,Baglanti,1,3
mesajadet = dostsite.recordcount
%>
<% If dostsite.eof then %>
|
Dost Site Bulunamamaktadır. |
<% else %>
<%
sayfasayisi = 20
if request("s")<>"" then
sayfa = cdbl(request("s"))
dostsite.move sayfa*sayfasayisi
else
sayfa = 0
end if
for t=1 to sayfasayisi
if dostsite.eof then exit for
%>
|
Site Adı : |
<%=dostsite("dost_ADI")%> |
|
Site Adresi : |
"><%=dostsite("dost_URL")%> |
| Site Açıklaması :
|
<%=dostsite("dost_ACIKLAMASI")%> |
| E-Mail Adresi :
|
<%=dostsite("dost_MAIL")%> |
| Adı ve Soyadı :
|
<%=dostsite("GONDEREN")%> |
İşlemler:
"> -
">
|
|
<%
dostsite.movenext
next
dostsite.close
set dostsite=nothing
Baglanti.CLOSE
SET Baglanti = NOTHING
%>
| Sayfa :
<%
if mesajadet/sayfasayisi = int(mesajadet/sayfasayisi) then sayfaadet = mesajadet/sayfasayisi else sayfaadet = int(mesajadet/sayfasayisi) +1
for p=0 to sayfaadet-1
if sayfa = p then
%>
[<%=p+1%>] <% else %> [<%=p+1%>] <%
end if
next
end if
%>
|
<%'** BAŞLANGIÇ - BU SATIR DEĞİŞTİRİLEMEZ VE KALDIRILAMAZ%>
|
HEDEF |
<%'** BİTİŞ - BU SATIR DEĞİŞTİRİLEMEZ VE KALDIRILAMAZ%>
|