<%@codepage=1254%>
<% id=Request.QueryString("id") %>
<%
exec=Request.QueryString("exec")
if exec="delete" then
call delete
end if
%>
Duyuru Oku
<%
Set muslim1 = Server.CreateObject("ADODB.Recordset")
sor1 = "Select * from duyurular where id="&id
muslim1.Open sor1,Sur,1,3
%>
| <%=muslim1("baslik")%> |
| <%=muslim1("detay")%> |
| <%=muslim1("tarih")%> |
|
<% sub delete
Response.Expires = -1000
Set id = Request.QueryString("id")
SQL = "delete from duyurular where id="
SQL = SQL & id
set rs=sur.Execute(SQL)
Response.End
End Sub
%>