<%@codepage=1254%> <% If session("adminmi") = "" Then response.redirect "sifre.asp" End If %> <% islem=Request.QueryString("islem") if islem="ekle" then call ekle end if %> Duyuru Sistemi
<% Set muslim1 = Server.CreateObject("ADODB.Recordset") sor1 = "Select * from duyurular order by id desc" muslim1.Open sor1,Sur,1,3 if muslim1.recordcount = 0 then Response.write "" Response.write "" Response.write "" Else %> <% do while not muslim1.eof %> <% muslim1.movenext Loop %> <%End If%> <% muslim1.close %>
Başlık
Kime
Tarih
Duyuru Bulunamadı.
','yukle','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=350,height=350')"><%=muslim1("baslik")%>
<% if muslim1("kime") = 0 then Response.write "Üyelere" ElseIf muslim1("kime") = 1 then Response.write "Ziyaretçilere" ElseIf muslim1("kime") = 2 then Response.write "Yazarlara" End If %>
<%=muslim1("tarih")%>

ZİYARETÇİ VEYA KÖŞE YAZARLARINA DUYURU EKLE

Başlık :
Tarih :
Kime :
Detaylar :
<%sub ekle Set muslimd = Server.CreateObject("ADODB.Recordset") sord = "Select * from duyurular" muslimd.Open sord,Sur,1,3 %> <% baslik = Request.Form("baslik") detay = Request.Form("detay") kime = Request.Form("kime") tarih = Request.Form("tarih") muslimd.addnew muslimd("baslik") = baslik muslimd("kime") = kime muslimd("detay") = detay muslimd("tarih") = tarih muslimd.update Response.redirect "duyuru.asp" end sub %>