<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("databaseadi.mdb")
%>
<%
gelen=Request.QueryString("kat")
	  Set MAIN = Server.Createobject("ADODB.Recordset")
	  sqltxt="Select KATEGORI_ID, KATEGORI_ADI from MAKALE_KATEGIRI where id="&gelen&""
	  MAIN.Open sqltxt,sur,1,3
%>

<title><%=MAIN("KATEGORI_ADI")%> Kategorisi //<%=Date%></title>

<%
MAIN.Close
Set MAIN=Nothing
%>