<%
connSTR = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
%>

<%
Function InsertBR(str)
InsertBR = (Replace(str, vbCrlf, "<br>"))
End Function
%>
<%

Dim intPage,ad
intPage = Request.QueryString("page")
id=Replace(Request.QueryString("id"), "'", "''")

If intPage <> "" Then
If IsNumeric(intPage) Then
If intPage < 1 Then
intPage = 1
End If
Else
intPage = 1
End If
Else
intPage = 1
End If

set rsItems = Server.CreateObject("ADODB.Recordset")
rsItems.ActiveConnection = connSTR
rsItems.Source = "SELECT * FROM tablo WHERE id LIKE '%" & id & "%' ORDER BY id ASC"
rsItems.CursorType = 3
rsItems.CursorLocation = 2
rsItems.LockType = 3
rsItems.CacheSize = 10
rsItems.PageSize = 1
rsItems.Open()

%>

<title><%=(rsItems.Fields.Item("baslik").Value)% ></title>