<%if aslx="KategoriEkle" then
call KategoriEkle
elseif aslx="KategoriDuzenle" then
call KategoriDuzenle
elseif aslx="KategoriSil" then
call KategoriSil
elseif aslx="kategori" then
call kategori
elseif islem="" then
else
select case islem
case "KategoriEkle"
call KategoriKaydet
case "KategoriDuzenle"
call KategoriGuncelle
end select
end if
'==================== Silme İşlemleri ======================================
sub KategoriSil
katid=guvenlik(Request.Querystring("katid"))
IF Not IsNumeric(Request.Querystring("katid")) THEN
response.write "Lütfen Geçerli bir ID numarasi girin."
response.end
END IF
IF session("admin") = "" then
Response.Redirect "kategori.asp"
Response.END
END IF
katid=guvenlik(request("katid"))
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "DELETE From kategori where katid="&katid
rs.open sql, cilem, 1, 3
Response.Redirect "kategori.asp?goster=kategori"
response.end
rs.close
end sub
'====================Yeni Kategori Kaydı======================================
sub KategoriKaydet
katid=guvenlik(request("katid"))
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From kategori"
rs.open sql, cilem, 1, 3
if guvenlik(request("kategoriadi")) ="" and guvenlik(request("sira"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs.addnew
rs("kategoriadi")=guvenlik(request("kategoriadi"))
rs("sira")=guvenlik(request("sira"))
rs.update
rs.close
Response.Redirect "kategori.asp?goster=kategori"
end if
end sub
'==================== KAYIT DÜZENLE======================================
sub KategoriGuncelle
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from kategori where katid="&katid
rs.open sql,cilem, 1,3
if guvenlik(request("kategoriadi"))="" and guvenlik(request("sira"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs("kategoriadi")=guvenlik(request("kategoriadi"))
rs("sira")=guvenlik(request("sira"))
rs.update
rs.close
Response.Redirect "kategori.asp?goster=kategori"
end if
end sub
'===========================
sub kategori
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From kategori where katid order by sira asc"
rs.open sql, cilem, 1, 3
%>
|
|
|
Sıra |
Kategori Adı |
<% do while not rs.eof %>
 |
<%=rs("sira")%> |
<%=rs("kategoriadi")%> |
">
 |
">
 |
<% rs.movenext
loop%>
<%
rs.close
end sub
sub KategoriEkle
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from kategori where katid order by katid desc"
rs.open sql,cilem, 1,3%>
<%end sub%>
<%sub KategoriDuzenle
On Error Resume Next
If Err.number <> 0 then
Response.Write "Sayfa Numarası Hatalı: "& Err.description
End If
%><%
katid=guvenlik(request("katid"))
sql="SELECT * FROM kategori where katid=" & guvenlik(request("katid"))
Set rs=cilem.Execute(sql)
if rs.eof then
Response.write""
if katid= "" Or IsNumeric(katid) = False Then
end if
else
katid=guvenlik(request("katid"))
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from kategori where katid="&katid&""
rs.open sql,cilem, 1,3%>
<%end if%>
<%end sub%>
|