<!--#include file ="../veriables.asp"-->
<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
%>

<% 
page = Request.Querystring("page")
%>
<!--#include file="head.asp"-->
<%
if page="" then 
response.redirect("panel.asp?box=warning&text=Sayfa%20bulunamadi.&second=2&url=default.asp")
end if 
%>      
<%
If page = "sil" then 
%>
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2>slider SiL</h2>	
                    		
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
					<ul class="imglist">
					
					
					<%
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb"))
set mertgaleri = server.createobject("adodb.recordset")
%>
  <%
	sql = "select * from galeri id order by aciklama asc"
	mertgaleri.Open sql, mertbaglan, 1, 3 
	%>
    <%
	if mertgaleri.eof then
    %>
    Veritabaninda kayitli slider bulunmamaktadir.
    <% end if %>
  <%Do while not mertgaleri.eof%>
  
<li>
<img src="../resim_boyut_kare.asp?path=admin/<%=mertgaleri("resim")%>&bx=100" alt="<%=mertgaleri("baslik")%>" title="<%=mertgaleri("baslik")%>" />
<ul>
<li class="view"><a href="<%=mertgaleri("resim")%>" rel="facebox">Büyüt</a></li>
<li class="delete"><a href="slideshow.asp?page=sil_onay&id=<%=mertgaleri("id")%>">Sil</a></li>
</ul>
</li>
  <%
	mertgaleri.movenext
	loop
	%>
  <%
	mertgaleri.close
	set mertgaleri=nothing
	mertbaglan.close
	set mertbaglan=nothing
	%>
	
					</ul>
					
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .leftcol ends -->
<%
else if page="duzenle" then
%>
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Slider<% 
					end if 
					if dil="en" then 
					%>Slideshow<% 
					end if 
					if dil="fr" then 
					%>CURSEUR<% 
					end if 
					if dil="ru" then 
					%>ПОЛЗУНОК<%
					end if 
					if dil="ar" then 
					%>المنزلق<% 
					end if 
					%></h2>	
                    <ul class="tabs">
						<li><a href="?page=ekle"><img src="images/add.png" /> <% 
					dil=session("plang") 
					if dil="tr" then 
					%>Yeni ekle<% 
					end if 
					if dil="en" then 
					%>Add new<% 
					end if 
					if dil="fr" then 
					%>AJOUTER UN NOUVEAU<% 
					end if 
					if dil="ru" then 
					%>ДОБАВИТЬ НОВУЮ<%
					end if 
					if dil="ar" then 
					%> إضافة جديدة<% 
					end if 
					%></a></li>
					</ul>					
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
					<ul class="imglist">
					
					
					<%
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb"))
set mertgaleri = server.createobject("adodb.recordset")
%>
  <%
	sql = "select * from galeri id order by aciklama asc"
	mertgaleri.Open sql, mertbaglan, 1, 3 
	%>
        <%
	if mertgaleri.eof then
    %>
    Veritabaninda kayitli slider bulunmamaktadir.
    <% end if %>
  <%Do while not mertgaleri.eof%>
  
<li>
<img src="../resim_boyut_kare.asp?path=admin/<%=mertgaleri("resim")%>&bx=100" alt="<%=mertgaleri("baslik")%>" title="<%=mertgaleri("baslik")%>" />
<ul>

<li class="delete"><a href="slideshow.asp?page=duzenle_onay&id=<%=mertgaleri("id")%>"><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Düzenle<% 
					end if 
					if dil="en" then 
					%>Edit<% 
					end if 
					if dil="fr" then 
					%>Modifier<% 
					end if 
					if dil="ru" then 
					%>РЕДАКТИРОВАТЬ<%
					end if 
					if dil="ar" then 
					%>تعديل<% 
					end if 
					%></a></li>

<li class="delete"><a href="slideshow.asp?page=sil_onay&id=<%=mertgaleri("id")%>"><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Sil<% 
					end if 
					if dil="en" then 
					%>Delete<% 
					end if 
					if dil="fr" then 
					%>Effacer<% 
					end if 
					if dil="ru" then 
					%>Очистить<%
					end if 
					if dil="ar" then 
					%>سيل<% 
					end if 
					%></a></li>
</ul>
</li>
  <%
	mertgaleri.movenext
	loop
	%>
  <%
	mertgaleri.close
	set mertgaleri=nothing
	mertbaglan.close
	set mertbaglan=nothing
	%>
	
					</ul>
					
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .leftcol ends -->
            
<%
else if page="ekle" then
%>
<head>
<script type="text/javascript" src="upload/highslide/highslide-with-html.js"></script>
<link rel="stylesheet" type="text/css" href="upload/highslide/highslide.css" />
<script type="text/javascript">
hs.graphicsDir = 'upload/highslide/graphics/';
hs.outlineType = 'rounded-white';
hs.wrapperClassName = 'draggable-header';
</script>
</head>
			 
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Yeni ekle<% 
					end if 
					if dil="en" then 
					%>Add new<% 
					end if 
					if dil="fr" then 
					%>AJOUTER UN NOUVEAU<% 
					end if 
					if dil="ru" then 
					%>ДОБАВИТЬ НОВУЮ<%
					end if 
					if dil="ar" then 
					%> إضافة جديدة<% 
					end if 
					%></h2>
		
				</div>		<!-- .block_head ends -->
				
				<div class="block_content">
				
<form action="?page=ekle_onay" method="post" name="hab">
<p><label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Başlık<% 
					end if 
					if dil="en" then 
					%>Page name<% 
					end if 
					if dil="fr" then 
					%>Nom<% 
					end if 
					if dil="ru" then 
					%>название<%
					end if 
					if dil="ar" then 
					%>اسم<% 
					end if 
					%> :</label><br /><input name="baslik" type="text" class="text medium error"></p>
      

					<p>
                    <label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Resim yükle<% 
					end if 
					if dil="en" then 
					%>Upload a picture<% 
					end if 
					if dil="fr" then 
					%>Télécharger une photo<% 
					end if 
					if dil="ru" then 
					%>Загрузить фото<%
					end if 
					if dil="ar" then 
					%>رفع صورة<% 
					end if 
					%> :</label><br />
                    <a onClick="return hs.htmlExpand(this, { objectType: 'iframe' } )" href="upload/galeri_resim_up.asp?durum=resimsifir"><img src="images/add.png" /> <% 
					dil=session("plang") 
					if dil="tr" then 
					%>Bilgisayarımdan yükle<% 
					end if 
					if dil="en" then 
					%>Upload my computer<% 
					end if 
					if dil="fr" then 
					%>Télécharger une photo<% 
					end if 
					if dil="ru" then 
					%>Загрузить фото<%
					end if 
					if dil="ar" then 
					%>رفع صورة<% 
					end if 
					%></a>
                    </p>
              <p><label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Sıra<% 
					end if 
					if dil="en" then 
					%>Order<% 
					end if 
					if dil="fr" then 
					%>Ordre<% 
					end if 
					if dil="ru" then 
					%>заказ<%
					end if 
					if dil="ar" then 
					%>النظام<% 
					end if 
					%> :</label><br /><input name="aciklama" type="text" class="text xsmall" value="1" maxlength="2"></p>

<p><label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Tarih<% 
					end if 
					if dil="en" then 
					%>Date<% 
					end if 
					if dil="fr" then 
					%>Date<% 
					end if 
					if dil="ru" then 
					%>дата<%
					end if 
					if dil="ar" then 
					%>تاريخ<% 
					end if 
					%>  :</label><br /><input name="tarih" type="text" class="text small" value="<%=now()%>" maxlength="25"></p>
<input name="resimsifir" type="hidden" class="text medium error">
<input name="yayin" type="hidden" value="acik" class="text medium error">
<p><input name="gonder" class="submit mid" type="submit" value=" <% 
					dil=session("plang") 
					if dil="tr" then 
					%>Ekle<% 
					end if 
					if dil="en" then 
					%>Add<% 
					end if 
					if dil="fr" then 
					%>Ajouter<% 
					end if 
					if dil="ru" then 
					%>добавлять<%
					end if 
					if dil="ar" then 
					%>إضافة<% 
					end if 
					%>  " /></p>
</form>
		</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
					
			</div>		<!-- .block ends -->
<%
else if page="ekle_onay" then
   Set mertbaglan = Server.CreateObject("ADODB.Connection")
   mertbaglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/"&datayol&".mdb")
   baslik = Request.form("baslik")
   if Request.form("resimsifir") = "" then
   resimsifir = SESSION("resimsifir")
   else
   resimsifir = Request.form("resimsifir")
   end if
   aciklama = Request.form("aciklama")
   yayin = Request.form("yayin")
   tarih = Request.form("tarih")
   if tarih="" then
   response.redirect "panel.asp?box=warning&text=Lutfen%20tum%20alanlari%20doldurunuz.&second=2&url=slideshow.asp?page=ekle"
   elseif resimsifir="" then
   response.redirect "panel.asp?box=warning&text=Lutfen%20anaresim%20olarak%20bir%20resim%20yukleyiniz.&second=2&url=slideshow.asp?page=ekle"
   Else 
   
    Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from galeri"
    kaydet.open sql, mertbaglan, 1, 3
    kaydet.addnew
    kaydet("baslik") = baslik
    kaydet("resim") = resimsifir
    kaydet("aciklama") = aciklama
	kaydet("yayin") = yayin
	kaydet("tarih") = tarih
	kaydet.update
    kaydet.close
    set kaydet=nothing
    mertbaglan.close
    set mertbaglan=nothing
	SESSION("resimsifir") = ""
	response.redirect "panel.asp?box=success&text=slider%20basariyla%20eklendi.&second=2&url=slideshow.asp?page=duzenle"
    end if
%>
<%
else if page="sil_onay" then
%>
			<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Slider<% 
					end if 
					if dil="en" then 
					%>Slideshow<% 
					end if 
					if dil="fr" then 
					%>CURSEUR<% 
					end if 
					if dil="ru" then 
					%>ПОЛЗУНОК<%
					end if 
					if dil="ar" then 
					%>المنزلق<% 
					end if 
					%></h2>
					
			
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
	
					<div class="message warning"><p><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Silmek istediginizden Eminmisiniz?<% 
					end if 
					if dil="en" then 
					%>Are you sure you want to delete?<% 
					end if 
					if dil="fr" then 
					%>Etes-vous sûr de vouloir supprimer?<% 
					end if 
					if dil="ru" then 
					%>Вы уверены, что хотите удалить?<%
					end if 
					if dil="ar" then 
					%>هل أنت متأكد أنك تريد حذف؟<% 
					end if 
					%></p></div>
	
					
					
		
	
        
         
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
%>
<%
id=request("id")
if request("del")<>"" then
	Bag.execute("DELETE FROM galeri WHERE  id="& id &"")
	response.redirect "panel.asp?box=success&text=slider%20basariyla%20silindi.&second=2&url=slideshow.asp?page=duzenle"
end if 
%>
			<form action="slideshow.asp?page=sil_onay" method="post">
			<p>
			<INPUT TYPE="submit" VALUE=" <% 
					dil=session("plang") 
					if dil="tr" then 
					%>Sil<% 
					end if 
					if dil="en" then 
					%>Delete<% 
					end if 
					if dil="fr" then 
					%>Effacer<% 
					end if 
					if dil="ru" then 
					%>Очистить<%
					end if 
					if dil="ar" then 
					%>سيل<% 
					end if 
					%> "  class="submit small">
            <INPUT type="Button" VALUE=" <% 
					dil=session("plang") 
					if dil="tr" then 
					%>İptal<% 
					end if 
					if dil="en" then 
					%>Cancel<% 
					end if 
					if dil="fr" then 
					%>Résilier<% 
					end if 
					if dil="ru" then 
					%>отменить<%
					end if 
					if dil="ar" then 
					%>إلغاء<% 
					end if 
					%> " OnClick='history.go( -1 );return true;'  class="submit mid">
			<input type="hidden" name="del" value="1">
			<input type="hidden" name="id" value="<%=request("id")%>">
			</p>
			</form>
            
            				
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
					
			</div>		<!-- .block ends -->
<%
else if page="duzenle_onay" then
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
id=request("id")
if request("update")<>"" then
	baslik=request("baslik")
	tarih=request("tarih")
	aciklama=request("aciklama")
	yayin=request("yayin")
	resim=request("resimsifir")
	
	Rs.ActiveConnection = bag
	Sorgu="SELECT * FROM galeri WHERE id="& id &""
	rs.open Sorgu,bag,3,2
		rs.update "baslik",baslik
		rs.update "tarih",tarih
		rs.update "aciklama",aciklama
		rs.update "yayin",yayin
	    rs.update "resim",resim
		rs.close
	set rs=nothing 
	response.redirect "panel.asp?box=success&text=slider%20duzenleme%20basarili.&second=2&url=slideshow.asp?page=duzenle"
else
end if 
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
			Rs.ActiveConnection = bag
			Rs.Open="Select * from galeri WHERE id =" & request("id")
			%>
            
			<div class="block small left">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Slider<% 
					end if 
					if dil="en" then 
					%>Slideshow<% 
					end if 
					if dil="fr" then 
					%>CURSEUR<% 
					end if 
					if dil="ru" then 
					%>ПОЛЗУНОК<%
					end if 
					if dil="ar" then 
					%>المنزلق<% 
					end if 
					%></h2>	
                   
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
			<form action="slideshow.asp?page=duzenle_onay" method="post">
            		<p>
                    <label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Başlık<% 
					end if 
					if dil="en" then 
					%>Page name<% 
					end if 
					if dil="fr" then 
					%>Nom<% 
					end if 
					if dil="ru" then 
					%>название<%
					end if 
					if dil="ar" then 
					%>اسم<% 
					end if 
					%> :</label><br />
					<input type="text" class="text" name="baslik" value="<%Response.Write RS("baslik")%>" maxlength="75" />
                    </p>
                    <p>
                    <label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Resim url<% 
					end if 
					if dil="en" then 
					%>Picture link<% 
					end if 
					if dil="fr" then 
					%>Télécharger une photo<% 
					end if 
					if dil="ru" then 
					%>Загрузить фото<%
					end if 
					if dil="ar" then 
					%>رفع صورة<% 
					end if 
					%>:</label><br />
                    <input type="text" class="text" name="resimsifir" value="<%Response.Write RS("resim")%>"  maxlength="175" />
                    </p>
                    <p>
                    <label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Sıra<% 
					end if 
					if dil="en" then 
					%>Order<% 
					end if 
					if dil="fr" then 
					%>Ordre<% 
					end if 
					if dil="ru" then 
					%>заказ<%
					end if 
					if dil="ar" then 
					%>النظام<% 
					end if 
					%> :</label><br />
                    <input name="aciklama" type="text" class="text small" value="<%Response.Write RS("aciklama")%>" maxlength="2">
                    </p>
                    <p>
                    <label><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Tarih<% 
					end if 
					if dil="en" then 
					%>Date<% 
					end if 
					if dil="fr" then 
					%>Date<% 
					end if 
					if dil="ru" then 
					%>дата<%
					end if 
					if dil="ar" then 
					%>تاريخ<% 
					end if 
					%> :</label><br />
                    <input type="text" class="text" name="tarih" value="<%Response.Write RS("tarih")%>"  maxlength="25" />
                    </p>
					<input type="hidden" name="update" value="1">
                    <input type="hidden" name="yayin" value="acik">
					<input type="hidden" name="id" value="<%Response.Write RS("id")%>">
		<%
			rs.close
			set rs=nothing
			bag.close
			set bag=nothing
			%>
	
			<INPUT TYPE="submit" class="submit small" VALUE=" <% 
					dil=session("plang") 
					if dil="tr" then 
					%>Kaydet<% 
					end if 
					if dil="en" then 
					%>Save<% 
					end if 
					if dil="fr" then 
					%>Sauver<% 
					end if 
					if dil="ru" then 
					%>экономить<%
					end if 
					if dil="ar" then 
					%>حفظ<% 
					end if 
					%> ">
          	<INPUT type="Button" class="submit small" VALUE=" <% 
					dil=session("plang") 
					if dil="tr" then 
					%>İptal<% 
					end if 
					if dil="en" then 
					%>Cancel<% 
					end if 
					if dil="fr" then 
					%>Résilier<% 
					end if 
					if dil="ru" then 
					%>отменить<%
					end if 
					if dil="ar" then 
					%>إلغاء<% 
					end if 
					%> " OnClick='history.go( -1 );return true;' >
			</form>
            
            
            
            <br />
            
            
            		</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .block.small.left ends -->
			
			
			
			<div class="block small right">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Önizleme<% 
					end if 
					if dil="en" then 
					%>Preview<% 
					end if 
					if dil="fr" then 
					%>Avant-première<% 
					end if 
					if dil="ru" then 
					%>предварительный просмотр<%
					end if 
					if dil="ar" then 
					%>معاينة<% 
					end if 
					%></h2>
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
						<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
%>
			<%
			Rs.ActiveConnection = bag
			Rs.Open="Select * from galeri WHERE id =" & request("id")
			%>
					<h2><%Response.Write RS("baslik")%></h2>
					<p><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Sıra<% 
					end if 
					if dil="en" then 
					%>Order<% 
					end if 
					if dil="fr" then 
					%>Ordre<% 
					end if 
					if dil="ru" then 
					%>заказ<%
					end if 
					if dil="ar" then 
					%>النظام<% 
					end if 
					%> : <b><%Response.Write RS("aciklama")%></b></p>
					<p><img src="<%Response.Write RS("resim")%>" width="500"/></p>			
					<p><% 
					dil=session("plang") 
					if dil="tr" then 
					%>Tarih<% 
					end if 
					if dil="en" then 
					%>Date<% 
					end if 
					if dil="fr" then 
					%>Date<% 
					end if 
					if dil="ru" then 
					%>дата<%
					end if 
					if dil="ar" then 
					%>تاريخ<% 
					end if 
					%> : <%Response.Write RS("tarih")%></p>
					
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .block.small.right ends -->
            
            		<%
			rs.close
			set rs=nothing
			bag.close
			set bag=nothing
			%>
<%
elseif page="kind_sil" then
%>
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2>slider SiL</h2>	
                     <ul>
						<li><a href="?page=sil">Tümü</a></li>
					</ul>					
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
					<ul class="imglist">
					
					
					<%
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb"))
set mertgaleri = server.createobject("adodb.recordset")
%>
  <%
	sql = "select * from galeri id where yayin='acik' order by aciklama asc"
	mertgaleri.Open sql, mertbaglan, 1, 3 
	%>
    <%
	if mertgaleri.eof then
    %>
    Veritabaninda kayitli slider bulunmamaktadir.
    <% end if %>
  <%Do while not mertgaleri.eof%>
  
<li>
<img src="../resim_boyut_kare.asp?path=admin/<%=mertgaleri("resim")%>&bx=100" alt="<%=mertgaleri("baslik")%>" title="<%=mertgaleri("baslik")%>" />
<ul>
<li class="view"><a href="<%=mertgaleri("resim")%>" rel="facebox">Büyüt</a></li>
<li class="delete"><a href="slideshow.asp?page=sil_onay&id=<%=mertgaleri("id")%>">Sil</a></li>
</ul>
</li>
  <%
	mertgaleri.movenext
	loop
	%>
  <%
	mertgaleri.close
	set mertgaleri=nothing
	mertbaglan.close
	set mertbaglan=nothing
	%>
	
					</ul>
					
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .leftcol ends -->
<%
elseif page="kind_duzenle" then %>
<div class="block">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2>slider düzenle</h2>	
                     <ul>
						<li><a href="?page=duzenle">Tümü</a></li>
					</ul>					
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
					<ul class="imglist">
					
					
					<%
set mertbaglan = Server.CreateObject("ADODB.Connection")
mertbaglan.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/"&datayol&".mdb"))
set mertgaleri = server.createobject("adodb.recordset")
%>
  <%
	sql = "select * from galeri id where yayin='acik' order by aciklama asc"
	mertgaleri.Open sql, mertbaglan, 1, 3 
	%>
        <%
	if mertgaleri.eof then
    %>
    Veritabaninda kayitli slider bulunmamaktadir.
    <% end if %>
  <%Do while not mertgaleri.eof%>
  
<li>
<img src="../resim_boyut_kare.asp?path=admin/<%=mertgaleri("resim")%>&bx=100" alt="<%=mertgaleri("baslik")%>" title="<%=mertgaleri("baslik")%>" />
<ul>
<li class="view"><a href="<%=mertgaleri("resim")%>" rel="facebox">Büyüt</a></li>
<li class="delete"><a href="slideshow.asp?page=duzenle_onay&id=<%=mertgaleri("id")%>">Düzenle</a></li>
</ul>
</li>
  <%
	mertgaleri.movenext
	loop
	%>
  <%
	mertgaleri.close
	set mertgaleri=nothing
	mertbaglan.close
	set mertbaglan=nothing
	%>
	
					</ul>
					
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .leftcol ends -->
            <%
			else
response.redirect("panel.asp?box=warning&text=Sayfa%20bulunamadi.&second=2&url=default.asp")
end if 
end if
end if
end if
end if
end if
%>
			
<!--#include file="foot.asp"-->