<%
Set bak = Server.CreateObject("ADODB.Connection")
bak.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data4455.mdb"))
Set izle = Server.CreateObject("ADODB.Recordset")
baglandir8 = "select * from icerik"
izle.Open baglandir8,bak,3,3
catt=request("cat")
if request("cat")="" then catt="anasayfa"
icerik=izle(""&catt&"")
%>
New Page 1
<%=icerik%>