<%@codepage=1254%> Kirmak Makina
<% Set Surbbs = Server.CreateObject("ADODB.Connection") Surbbs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/news.mdb") Set rsbbs = Server.CreateObject("ADODB.Recordset") sorbbs = "Select * from haber where onay=1 ORDER BY id desc" rsbbs.Open sorbbs,Surbbs,1,3 %>
<%sub ekle Set Sur = Server.CreateObject("ADODB.Connection") Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("haber.mdb") Set gkn = Server.CreateObject("ADODB.Recordset") sor = "Select * from haber" gkn.Open sor,Sur,1,3 %> <% haberbaslik = Request.Form("haberbaslik") haberkisa = Request.Form("haberkisa") haberdetay = Trim(request.form("haberdetay")) haberdetay = replace(haberdetay,"<","<") haberdetay = replace(haberdetay,">",">") haberdetay = Replace(haberdetay, "
", vbcrlf, 1, -1, 1) haberdetay = Replace(haberdetay, "
", "
", 1, -1, 1) ekleyen = Request.Form("ekleyen") onay = Request.Form("onay") gkn.addnew gkn("haberbaslik") = haberbaslik gkn("haberkisa") = haberkisa gkn("haberdetay") = haberdetay gkn("ekleyen") = ekleyen gkn("onay") = onay gkn("tarih") = Date() gkn.update Response.redirect "listele.asp" end sub %>