Böyle yaptım ama olmadı Nerede hatam var yardımcı olurmusunuz
<%
Dim veritabani
Dim bcumle
Dim bag
Dim rs
Dim id
Dim ayrinti
Veritabani = Server.MapPath("veritabani.mdb")
Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & veritabani
Set bag = Server.Createobject("ADODB.Connection")
bag.Open (Bcumle)
Set rs = Server.Createobject("ADODB.Recordset")
id=Request.QueryString("id")
set rs = bag.execute("select * from sozlerim WHERE id = " & id & "")
=rs("ayrinti")
%>