<%if aslx="TemaEkle" then
call TemaEkle
elseif aslx="TemaDuzenle" then
call TemaDuzenle
elseif aslx="TemaSil" then
call TemaSil
elseif aslx="temalar" then
call temalar
elseif islem="" then
else
select case islem
case "TemaEkle"
call TemaKaydet
case "TemaDuzenle"
call TemaGuncelle
end select
end if
'==================== Silme İşlemleri ======================================
sub TemaSil
id=guvenlik(Request.Querystring("id"))
IF Not IsNumeric(Request.Querystring("id")) THEN
response.write "Lütfen Geçerli bir ID numarasi girin."
response.end
END IF
IF session("admin") = "" then
Response.Redirect "tema.asp"
Response.END
END IF
id=guvenlik(request("id"))
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "DELETE From temalar where id="&id
rs.open sql, cilem, 1, 3
Response.Redirect "tema.asp?goster=temalar"
response.end
rs.close
end sub
'====================Yeni Duyuru Kaydı======================================
sub TemaKaydet
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From temalar"
rs.open sql, cilem, 1, 3
if guvenlik(request("temaadi"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs.addnew
rs("temaadi")=guvenlik(request("temaadi"))
rs.update
rs.close
Response.Redirect "tema.asp?goster=temalar"
end if
end sub
'==================== KAYIT DÜZENLE======================================
sub TemaGuncelle
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from temalar where id="&id
rs.open sql,cilem, 1,3
if guvenlik(request("temaadi"))="" then
response.write"Lütfen Bos Alanları Doldurunuz
Geri Dön"
else
rs("temaadi")=guvenlik(request("temaadi"))
rs.update
rs.close
Response.Redirect "tema.asp?goster=temalar"
end if
end sub
'===========================
sub temalar
Set rs=Server.CreateObject("Adodb.Recordset")
SQL = "Select * From temalar"
rs.open sql, cilem, 1, 3
%>
|
Yeni Tema İndir |
 |
|
|
Tema Adı |
İşlemler |
<% do while not rs.eof %>
 |
<%=rs("temaadi")%> |
">
 |
">
 |
<% rs.movenext
loop%>
<%
rs.close
end sub
sub TemaEkle%>
<%end sub%>
<%sub TemaDuzenle%>
<%
On Error Resume Next
If Err.number <> 0 then
Response.Write "Sayfa Numarası Hatalı: "& Err.description
End If
%><%
id=guvenlik(request("id"))
sql="SELECT * FROM temalar WHERE id=" & guvenlik(request("id"))
Set rs=cilem.Execute(sql)
if rs.eof then
Response.write""
if id = "" Or IsNumeric(id) = False Then
end if
else
id=guvenlik(request("id"))
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from temalar where id="&id&""
rs.open sql,cilem, 1,3%>
<%end if%>
<%end sub%>
|