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

<% 
set baglanti = server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("../db/"&datayol&".mdb")
page = Request.Querystring("page")
durum = Request.Querystring("now")
id = Request.Querystring("id")
if page="" and id<>"" then 
end if 
if page = "add" then
%>
<!--#include file="head.asp"-->
<dIv class="block">
<dIv class="block_head">
<dIv class="bheadl"></dIv>
<dIv class="bheadr"></dIv>
<h2>Yeni Yazi ekle</h2>	
<ul class="tabs">
						<li><a href="#days">CODE</a></li>
						<li><a href="#months">HTML</a></li>
					</ul>
</dIv>
<dIv class="block_content tab_content" id="days">
<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>
<form action="?page=cmd&now=add" method="post">
<input type="hidden" name="b_hit" value="0" />
<p>
                    <label>Yazi basligi:</label><br />
<input class="text" type="text" name="baslik" /></p>
<p>
                    <label>Tags:</label><br />
<input class="text" type="text" name="tags" maxlength="75" /></p>
<% Set yliste=Server.CreateObject("Adodb.Recordset")
  lssorgu="Select * From yazar"
  yliste.open lssorgu,baglanti,1,3
  %><p>
                    <label>Yazar:</label><br />
  <select  class="styled" name="yazar">
  <% do while not yliste.eof %>
  <option value="<%=yliste("yazaradi")%>"><%=yliste("yazaradi")%></option>
  <% yliste.movenext
  loop
  yliste.close
  set yliste=Nothing
  %></select></p>
  
  
<p>
                    <label>Yazi:</label><br />
<textarea name="yazi" ></textarea></p>
<p>*Not : kullanici sayfasindaki genislik 580 px dir.</p>

<% Set kliste=Server.CreateObject("Adodb.Recordset")
  lsorgu="Select * From kategori"
  kliste.open lsorgu,baglanti,1,3
  %><p>
                    <label>Kategori:</label><br />
  <select  class="styled" name="kategori">
  <% do while not kliste.eof %>
  <option value="<%=kliste("kategoriid")%>"><%=kliste("kategoriadi")%></option>
  <% kliste.movenext
  loop
  kliste.close
  set kliste=Nothing
  %></select></p>
  
  <p>
                    <label>Tarih:</label><br />
<input class="text" type="text" value="<%=now()%>" name="tarih" maxlength="10" /></p>
<input class="submit mid" type="submit" value="Yaziyi Ekle" />
<INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit small">
</form><BR />
	</div>		<!-- .block_content ends -->
				
				
				
				
				
				<div class="block_content tab_content" id="months">
                
              <form action="?page=cmd&now=add" method="post">
<input type="hidden" name="b_hit" value="0" />
<p>
                    <label>Yazi basligi:</label><br />
<input class="text" type="text" name="baslik" /></p>
<p>
                    <label>Tags:</label><br />
<input class="text" type="text" name="tags" maxlength="75" /></p>
<% Set yliste=Server.CreateObject("Adodb.Recordset")
  lssorgu="Select * From yazar"
  yliste.open lssorgu,baglanti,1,3
  %><p>
                    <label>Yazar:</label><br />
  <select  class="styled" name="yazar">
  <% do while not yliste.eof %>
  <option value="<%=yliste("yazaradi")%>"><%=yliste("yazaradi")%></option>
  <% yliste.movenext
  loop
  yliste.close
  set yliste=Nothing
  %></select></p>
  
  
<p>
                    <label>Yazi:</label><br />
<textarea name="yazi" class="wysiwyg" ></textarea></p>

<% Set kliste=Server.CreateObject("Adodb.Recordset")
  lsorgu="Select * From kategori"
  kliste.open lsorgu,baglanti,1,3
  %><p>
                    <label>Kategori:</label><br />
  <select  class="styled" name="kategori">
  <% do while not kliste.eof %>
  <option value="<%=kliste("kategoriid")%>"><%=kliste("kategoriadi")%></option>
  <% kliste.movenext
  loop
  kliste.close
  set kliste=Nothing
  %></select></p>
  
  <p>
                    <label>Tarih:</label><br />
<input class="text" type="text" name="tarih" value="<%=now()%>" maxlength="10" /></p>
<input class="submit mid" type="submit" value="Yaziyi Ekle" />
<INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit small">
</form><BR />
	
</dIv>		<!-- .block_content ends -->
<dIv class="bendl"></dIv>
<dIv class="bendr"></dIv>
</dIv>		<!-- .block.small.rIght ends -->
<% 
end if 
if page = "cmd" then
durum = request.querystring("now")
if durum = "" then
response.Write("")
elseif durum = "add" then
call yekle
elseif durum = "del" then
call ysil
elseif durum = "cat_add" then
call cat_add
elseif durum = "cat_del" then
call cat_del
elseif durum = "author_add" then
call author_add
elseif durum = "author_del" then
call author_del
end if
sub cat_add 
kategori=Request.form("kategori")
set kategorie=Server.CreateObject("Adodb.Recordset")
sqlkategori="select * from kategori"
kategorie.open sqlkategori,baglanti,1,3
kategorie.addnew
kategorie("kategoriadi")=kategori
kategorie.update
response.redirect "panel.asp?box=success&text=Kategori%20basariyla%20eklendi.&second=2&url=blog.asp?page=cat"
end sub
sub author_add 
yazar=Request.form("yazar")
set yazare=Server.CreateObject("Adodb.Recordset")
sqlyazar="select * from yazar"
yazare.open sqlyazar,baglanti,1,3
yazare.addnew
yazare("yazaradi")=yazar
yazare.update
response.redirect "panel.asp?box=success&text=Yazar%20basariyla%20eklendi.&second=2&url=blog.asp?page=author"
end sub
sub author_del
id=Request.QueryString("id")
set autsil=Server.CreateObject("Adodb.Recordset")
sq="delete * from yazar where yazarid="&id&""
autsil.open sq,baglanti,1,3
response.redirect "panel.asp?box=success&text=Yazar%20basariyla%20silindi.&second=2&url=blog.asp?page=author"
end sub
sub cat_del
id=Request.QueryString("id")
set katsil=Server.CreateObject("Adodb.Recordset")
sq="delete * from kategori where kategoriid="&id&""
katsil.open sq,baglanti,1,3
response.redirect "panel.asp?box=success&text=Kategori%20basariyla%20silindi.&second=2&url=blog.asp?page=cat"
end sub
sub yekle
   Set hafzullah = Server.CreateObject("ADODB.Connection")
   hafzullah.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/"&datayol&".mdb")
   baslik = Request.form("baslik")
   yazar = Request.form("yazar")
   tags = Request.form("tags")
   katID = Request.form("kategori")
   b_hit = Request.form("b_hit")
   yazi = Request.form("yazi")
   tarih = Request.form("tarih")
   if baslik="" or yazi="" then
   response.redirect "panel.asp?box=warning&text=Lutfen%20tum%20alanlari%20doldurunuz.&second=2&url=blog.asp?page=add"
   Else 
   
    Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from yazilar"
    kaydet.open sql, hafzullah, 1, 3
    kaydet.addnew
    kaydet("baslik") = baslik
	kaydet("resim") = yazar
	kaydet("onay") = tags
	kaydet("katID") = katID
	kaydet("b_hit") = b_hit
    kaydet("yazi") = yazi
	kaydet("tarih") = tarih
	kaydet.update
    kaydet.close
    set kaydet=nothing
    hafzullah.close
    set hafzullah=nothing
	response.redirect "panel.asp?box=success&text=Yazi%20basariyla%20eklendi.&second=2&url=blog.asp?page=add"
    end if
	
	end sub
	
sub ysil
id=Request.QueryString("id")
Set yazsil=Server.CreateObject("Adodb.Recordset")
yso="Delete * From yazilar where yaziid="&id&""
yazsil.open yso,baglanti,1,3
response.redirect "panel.asp?box=success&text=Yazi%20basariyla%20silindi.&second=2&url=blog.asp?page=pages"
end sub
end if 
if page = "pages" then
%>
<!--#include file="head.asp"-->
<dIv class="block">
<dIv class="block_head">
<dIv class="bheadl"></dIv>
<dIv class="bheadr"></dIv>
<h2>Mevcut yazilar</h2>	
</dIv>
<dIv class="block_content">
<%
Response.WrIte("<table wIdth=100% border=0 cellspacIng=3 cellpaddIng=0 alIgn=center>")
Response.WrIte("<tr bgcolor=""#cccccc"" class=hIghlIghts><td alIgn=""center"" wIdth=""10""><Img src=""Images/fIlemanager/back.png"" border=0></td><td wIdth=""30%"">Yazi basligi</td><td wIdth=""12%"">Hit - Cat</td><td wIdth=""20%"">Yazma tarihi</td><td wIdth=""18%"">Yazar<sup></sup></td><td alIgn=center colspan=3 wIdth=""20%"">Islem</td></tr>")
%>
<style type="text/css"> tr.menuon {background: url(images/); color: #666666; } tr.menuoff { background: url(images/bg-blog-tr.jpg); color: #191919; } </style>
<%
Set yazi=Server.CreateObject("Adodb.Recordset")
ysorgu="Select * From yazilar order by yaziid desc"
yazi.open ysorgu,baglanti,1,3
do while not yazi.eof %>
<tr class="menuoff" onMouseOver="className='menuon';"  onMouseOut="className='menuoff';">
<td alIgn="center" wIdth=""10""><A tItle=url href="blog.asp?page=url&id=<%=yazi("yaziid")%>"><IMG src="Images/fIlemanager/file.png" border=0></a></td>
<td class=bout><%=yazi("baslik")%></td>
<td class=bout><%=yazi("b_hit")%> - <%=yazi("katID")%></td>
<td class=bout><%=yazi("tarih")%></td>
<td class=bout><%=yazi("resim")%></td>
<td class=tIny alIgn="center"><center><A tItle=gozat target="_blank"  href="../<%=yazi("yaziid")%>"><IMG src="Images/fIlemanager/view.png" border=0></a></center></td> 
<td class=tIny alIgn="center"><center><A tItle=duzenle href="blog.asp?page=edit&id=<%=yazi("yaziid")%>"><IMG src="Images/fIlemanager/edit.png" border=0></a></center></td> 
<td class=tIny alIgn="center"><center><A tItle=sIl href="blog.asp?page=del_onay&id=<%=yazi("yaziid")%>" ><IMG src="Images/fIlemanager/del.png" border=0></a></center></td> 
</tr>
<% 
yazi.movenext
loop
yazi.close
Set yazi=Nothing
%>
</table>
</dIv>		<!-- .block_content ends -->
<dIv class="bendl"></dIv>
<dIv class="bendr"></dIv>
</dIv>		<!-- .block.small.rIght ends -->
<%
end if
if page = "edit" 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("yaziid")
if request("update")<>"" then
baslik=request("baslik")
yazi=request("yazi")
yazar=request("yazar")
tarih=request("tarih")
katID=request("kategori")
tags=request("tags")
b_hit=request("b_hit")
Rs.ActiveConnection = bag
Sorgu="SELECT * FROM yazilar WHERE yaziid="& id &""
rs.open Sorgu,bag,3,2
    rs.update "baslik",baslik
	rs.update "resim",yazar
	rs.update "onay",tags
	rs.update "katID",katID
	rs.update "b_hit",b_hit
    rs.update "yazi",yazi
	rs.update "tarih",tarih
rs.close
set rs=nothing 
response.redirect "panel.asp?box=success&text=Yazi%20basariyla%20duzenlendi.&second=2&url=blog.asp?page=pages"
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 yazilar WHERE yaziid =" & request("id")
%>
<!--#include file="head.asp"-->
<dIv class="block">
<dIv class="block_head">
<dIv class="bheadl"></dIv>
<dIv class="bheadr"></dIv>
<h2>Yazi duzenle</h2>	
<ul class="tabs">
						<li><a href="#days">CODE</a></li>
						<li><a href="#months">HTML</a></li>
					</ul>
</dIv>
<dIv class="block_content tab_content" id="days">
<form action="?page=edit" method="post">
<p>
                    <label>Baslik:</label><br />
<input class="text medium error" type="text" name="baslik" value="<%Response.Write RS("baslik")%>"  /></p>
<p>
                    <label>Yazar:</label><br />
<input class="text medium error" type="text" name="yazar" value="<%Response.Write RS("resim")%>" maxlength="75" /></p>
<p>
                    <label>Tags:</label><br />
<input class="text medium error" type="text" name="tags" value="<%Response.Write RS("onay")%>" maxlength="75" /></p>

<% 
  katid = RS("katID")
  Set kliste=Server.CreateObject("Adodb.Recordset")
  lsorgu="Select * From kategori"
  kliste.open lsorgu,baglanti,1,3
  %><p>
                    <label>Kategori:</label><br />
  <select  class="styled" name="kategori">
  <% do while not kliste.eof %>
  <option value="<%=kliste("kategoriid")%>" <% if kliste("kategoriid") = katid then response.write "selected" end if %>><%=kliste("kategoriadi")%></option>
  <% kliste.movenext
  loop
  kliste.close
  set kliste=Nothing
  %></select></p>
  
<p>
                    <label>Yazi:</label><br />
<textarea name="yazi"><%Response.Write RS("yazi")%></textarea></p>
<p>
                    <label>Hit:</label><br />
<input class="text" type="text" name="b_hit" value="<%Response.Write RS("b_hit")%>" maxlength="75" /></p>
<p>
                    <label>Tarih:</label><br />
<input class="text" type="text" name="tarih" value="<%Response.Write RS("tarih")%>" maxlength="75" /></p>
<input type="hidden" name="update" value="1">
<input type="hidden" name="yaziid" value="<%Response.Write RS("yaziid")%>" />
<input type="hidden" name="katID" value="<%Response.Write RS("katID")%>" />
<%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<INPUT TYPE="submit" VALUE=" Kaydet "  class="submit mid">
<INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit small"></form>
<br />
	</div>		<!-- .block_content ends -->
	
				<div class="block_content tab_content" id="months">
<%
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 yazilar WHERE yaziid =" & request("id")
%>
<form action="?page=edit" method="post">
<p>
                    <label>Baslik:</label><br />
<input class="text medium error" type="text" name="baslik" value="<%Response.Write RS("baslik")%>"  /></p>
<p>
                    <label>Yazar:</label><br />
<input class="text medium error" type="text" name="yazar" value="<%Response.Write RS("resim")%>" maxlength="75" /></p>
<p>
                    <label>Tags:</label><br />
<input class="text medium error" type="text" name="tags" value="<%Response.Write RS("onay")%>" maxlength="75" /></p>

<p>
                    <label>Yazi:</label><br />
<textarea name="yazi" class="wysiwyg"><%Response.Write RS("yazi")%></textarea></p>
<p>
                    <label>Hit:</label><br />
<input class="text" type="text" name="b_hit" value="<%Response.Write RS("b_hit")%>" maxlength="75" /></p>
<p>
                    <label>Tarih:</label><br />
<input class="text" type="text" name="tarih" value="<%Response.Write RS("tarih")%>" maxlength="75" /></p>
<input type="hidden" name="update" value="1">
<input type="hidden" name="yaziid" value="<%Response.Write RS("yaziid")%>" />
<input type="hidden" name="katID" value="<%Response.Write RS("katID")%>" />
<%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<INPUT TYPE="submit" VALUE=" Kaydet "  class="submit mid">
<INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit small"></form>
<br />
</dIv>		<!-- .block_content ends -->
<dIv class="bendl"></dIv>
<dIv class="bendr"></dIv>
</dIv>		<!-- .block.small.rIght ends -->
<%
end if
if page = "del_onay" then
%>
<!--#include file="head.asp"-->
<div class="block">
<div class="block_head">
<div class="bheadl"></div>
<div class="bheadr"></div>
<h2>Yazi sil</h2>
</div>		<!-- .block_head ends -->
<div class="block_content">
<div class="message warning"><p>Yaziyi Silmek istediginizden Eminmisiniz?</p></div>
			<form action="blog.asp?page=cmd&now=del&id=<%=request("id")%>" method="post">
			<p>
			<a href="blog.asp?page=cmd&now=del&id=<%=request("id")%>"><INPUT TYPE="submit" VALUE=" Evet "  class="submit small"></a>
            <INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit mid">
			</p>
			</form>
</div>		<!-- .block_content ends -->
<div class="bendl"></div>
<div class="bendr"></div>
</div>		<!-- .block ends -->
<%
end if
if page = "cat" then
%>
<!--#include file="head.asp"-->
<div class="block small left">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2>Yeni ekle</h2>	
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
	<form action="?page=cmd&now=cat_add" method="post">
<p>
                    <label>Kategori adi:</label><br />
			<input type="text"  class="text" name="kategori" size="70"></p>
			<input type="submit" name="guncelle"  class="submit large" value="Ekle">
		
</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>Mevcut kategoriler</h2>
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				<script type="text/javascript">
				// Popup window code
				function newPopup(url) {
				popupWindow = window.open(
				url,'popUpWindow','height=195,width=310,left=10,top=10,resizable=yes,scrollbars=yes,toolbar=no,menubar=no,location=no,directories=no,status=no')
				}
				</script>
	
					<ul>
                    <% Set kategori=Server.CreateObject("Adodb.Recordset")
	ksorgu="Select * From kategori order by listtype asc"
	kategori.open ksorgu,baglanti,1,3 %>
	<% do while not kategori.eof %>
    
   <li>&nbsp;<a href="?page=cat_del_onay&id=<%=kategori("kategoriid")%>" >Sil</a>&nbsp;&nbsp;&nbsp;<%=kategori("kategoriadi")%></li> 
	<% kategori.movenext
	loop
	kategori.close
	Set kategori=Nothing %>
					</ul>
                    
                    <p>
                    Kategorilerin sýrasýný deðiþtirmek için <a href="JavaScript:newPopup('catsiralablog.asp');">týklayýnýz.</a><br>Açýlan pencerede kategorileri sürükleyerek yerlerini deðiþtiriniz.
                    </p>
				
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .block.small.right ends -->
			
			
<% 
end if 
if page = "cat_del_onay" then
%>
<!--#include file="head.asp"-->
<div class="block">
<div class="block_head">
<div class="bheadl"></div>
<div class="bheadr"></div>
<h2>Kategori sil</h2>
</div>		<!-- .block_head ends -->
<div class="block_content">
<div class="message warning"><p>Kategoriyi Silmek istediginizden Eminmisiniz?</p></div>
			<form action="blog.asp?page=cmd&now=cat_del&id=<%=request("id")%>" method="post">
			<p>
			<a href="blog.asp?page=cmd&now=cat_del&id=<%=request("id")%>"><INPUT TYPE="submit" VALUE=" Evet "  class="submit small"></a>
            <INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit mid">
			</p>
			</form>
</div>		<!-- .block_content ends -->
<div class="bendl"></div>
<div class="bendr"></div>
</div>		<!-- .block ends -->
<%
end if
if page = "author" then
%>
<!--#include file="head.asp"-->
<div class="block small left">
			
				<div class="block_head">
					<div class="bheadl"></div>
					<div class="bheadr"></div>
					
					<h2>Yeni yazar ekle</h2>	
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
	<form action="?page=cmd&now=author_add" method="post">
<p>
                    <label>Yazar adi:</label><br />
			<input type="text"  class="text" name="yazar" size="70"></p>
			<input type="submit" name="guncelle"  class="submit large" value="Ekle">
		
</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>Sistemdeki mevcut yazarlar</h2>
				</div>		<!-- .block_head ends -->
				
				
				
				<div class="block_content">
				
	
					<ul>
                    <% Set yazar=Server.CreateObject("Adodb.Recordset")
	ksorgu="Select * From yazar"
	yazar.open ksorgu,baglanti,1,3 %>
	<% do while not yazar.eof %>
    
   <li>&nbsp;<a href="?page=author_del_confirm&id=<%=yazar("yazarid")%>" >Sil</a>&nbsp;&nbsp;&nbsp;<%=yazar("yazaradi")%></li> 
	<% yazar.movenext
	loop
	yazar.close
	Set yazar=Nothing %>
					</ul>
				
				</div>		<!-- .block_content ends -->
				
				<div class="bendl"></div>
				<div class="bendr"></div>
				
			</div>		<!-- .block.small.right ends -->
			
			
<% 
end if 
if page = "author_del_confirm" then
%>
<!--#include file="head.asp"-->
<div class="block">
<div class="block_head">
<div class="bheadl"></div>
<div class="bheadr"></div>
<h2>Yazari sil</h2>
</div>		<!-- .block_head ends -->
<div class="block_content">
<div class="message warning"><p>Yazar&#305; Silmek istediginizden Eminmisiniz?</p></div>
			<form action="blog.asp?page=cmd&now=author_del&id=<%=request("id")%>" method="post">
			<p>
			<a href="blog.asp?page=cmd&now=author_del&id=<%=request("id")%>"><INPUT TYPE="submit" VALUE=" Evet "  class="submit small"></a>
            <INPUT type="Button" VALUE=" iptal " OnClick='history.go( -1 );return true;'  class="submit mid">
			</p>
			</form>
</div>		<!-- .block_content ends -->
<div class="bendl"></div>
<div class="bendr"></div>
</div>		<!-- .block ends -->
<%
end if
if page="url" then
%>
<!--#include file="head.asp"-->
<dIv class="block">
<dIv class="block_head">
<dIv class="bheadl"></dIv>
<dIv class="bheadr"></dIv>
<h2>Sayfa url</h2>	
</dIv>
<div class="block_content">
                
                <form action="#">
<p>
                    <label>Sayfa url'si:</label><br />
<input class="text" type="text" name="baslik" value="http://<%Response.Write(Request.ServerVariables("server_name"))%>/blog.asp?id=<%=request.QueryString("id") %>"/></p>
<INPUT type="Button" VALUE="Geri dön" OnClick='history.go( -1 );return true;'  class="submit mid">
<a href="blog.asp?page=add"><input class="submit long" type="button" value="Yeni bir sayfa ekle" /></a>
<a href="blog.asp?page=edit&id=<%=request.QueryString("id") %>"><INPUT type="Button" VALUE="Düzenle" class="submit small"></a>
</form>
					
<br />
</dIv>		<!-- .block_content ends -->
<dIv class="bendl"></dIv>
<dIv class="bendr"></dIv>
</dIv>		<!-- .block.small.rIght ends -->
<% end if %>
<!--#include file="foot.asp"-->