<% end sub %>
<% sub postfile %>
<%
set rspost = Server.CreateObject("Adodb.Recordset")
sql = "select * from tech_download"
rspost.open sql,baglanti,1,3
ad = tech(request.form("ad"))
aciklama = tech(request.form("aciklama"))
boyut = tech(request.form("boyut"))
kategori = tech(request.form("kategori"))
testet = tech(request.form("test"))
indir = tech(request.form("indir"))
tarih = date()
rspost.addnew
rspost("ad") = ad
rspost("aciklama") = aciklama
rspost("boyut") = boyut
rspost("kategori") = kategori
rspost("test") = testet
rspost("indir") = indir
rspost("tarih") = tarih
rspost.update
%>
<% end sub %>
<% sub editfile %>
<%
sf = Request.querystring("sf")
if sf="" then
sf=1
end if
set rs = Server.createobject("Adodb.Recordset")
sql = "select * from tech_download order by id desc"
rs.open sql,baglanti,1,3
set cat = baglanti.execute("select * from tech_kategori order by id asc")
%>
<%
rs.pagesize = 1
rs.absolutepage = sf
sayfa = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<%
for y=1 to sayfa
if CINT(TRIM(sf))=CINT(TRIM(y)) then%>
<%response.write y %><%
else
response.write "
" & y & ""
end if
%><%next%>
<% end sub %>
<% sub addcat %>
<% end sub %>
<%
sub postcat
set rscat = Server.createobject("Adodb.Recordset")
sql = "select * from tech_kategori"
rscat.open sql,baglanti,1,3
kategori = tech(Request.form("kategori"))
rscat.addnew
rscat("kategori") = kategori
rscat.update
%>
Kategori Başarıyla Eklendi
Admin Sayfası
<% end sub %>
<% sub updatefile
id = tech(request.form("id"))
ad = tech(request.form("ad"))
aciklama = tech(request.form("aciklama"))
boyut = tech(request.form("boyut"))
kategori = tech(request.form("kategori"))
testet = tech(request.form("test"))
indir = tech(request.form("indir"))
tarih = date()
set rspost = Server.CreateObject("Adodb.Recordset")
sql = "select * from tech_download where id =" & id &""
rspost.open sql,baglanti,1,3
rspost("ad") = ad
rspost("aciklama") = aciklama
rspost("boyut") = boyut
rspost("kategori") = kategori
rspost("test") = testet
rspost("indir") = indir
rspost("tarih") = tarih
rspost.update
%>
Program Başarıyla Güncellendi
Admin Sayfası
<% end sub %>
<% sub editcat %>
<% set cat = baglanti.execute("select * from tech_kategori Order by kategori asc") %>
<% do while not cat.eof %>
<% cat.movenext
loop %>
<% end sub %>
<%
sub deletecat
id = Request.querystring("id")
set catdelete = Server.createobject("Adodb.Recordset")
sql = "delete * from tech_kategori where id="&id&""
catdelete.open sql,baglanti,1,3
set rsfile = Server.createobject("Adodb.Recordset")
sql = "delete * from tech_download where kategori ="& id &""
rsfile.open sql,baglanti,1,3
%>
Kategori ve O Kategoriye Ait Tüm Kayıtlar Silindi
Admin Sayfası
<% end sub %>
<%
sub deletefile
id = Request.querystring("id")
set catdelete = Server.createobject("Adodb.Recordset")
sql = "delete * from tech_download where id="&id&""
catdelete.open sql,baglanti,1,3
%>
Program Başarıyla Silindi
Admin Sayfası
<% end sub %>
<%
sub updatecat
kategori = tech(Request.form("kategori"))
id = tech(Request.form("id"))
set rscat = Server.createobject("Adodb.Recordset")
sql = "select * from tech_kategori where id ="&id&""
rscat.open sql,baglanti,1,3
rscat("kategori") = kategori
rscat.update
%>
Kategori Başarıyla Güncellendi
Admin Sayfası
<% end sub %>
