%@ LANGUAGE=VBScript CODEPAGE=1254%> <% Response.Charset = "windows-1254" Session.LCID = 1055 Session.CodePage = 1254 %> <% Set hunkaray = Server.CreateObject("ADODB.Connection") hunkaray.Open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("data/db.mdb") %> <% set Girdi = server.createobject("adodb.recordset") Girdi.open " select * from duyuru order by id desc " ,hunkaray,1,3 %> <% Xsayfa = request.querystring("Xsayfa") if Xsayfa = "" then Xsayfa = 1 end if %>
Duyurular |
|
|