sorunum cozuldu yazıya link verince yazımın veritabanında var olup olmadıgını bulamamıstım oldu ihtiyacı olan alsın yazı varsa baska yoksa baska sayfaya gidiyor 
<%
if session("uyedurum") = True Then
%>
<%
id=request.querystring("id")
yazim=request.querystring("yazim")
Set veritabani= Server.CreateObject("ADODB.Connection")
veritabani.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("5956thz1196thz5956.mdb")
sorgu="Select* from oldumu where id = " &id
set Kontrol=veritabani.Execute(sorgu)
if Kontrol.EOF then
response.redirect"yok.asp"
else
yazikontrol=trim(Kontrol("gerek"))
if yazim=yazikontrol then
response.redirect"var.asp"
else
response.redirect"yok.asp"
end if
end if
Kontrol.Close
set Kontrol=nothing
veritabani.Close
set veritabani=nothing
end if
%>
yazıma linki ise
asagıdaki kodla verdim
<table width="200" border="0">
<p>
<font color="#000000" face="Arial">
<a href="konuyai.asp?id=<%=thz("id")%>&yazim=<%=thz("yazim")%>" style="text-decoration: none">
<input type="text" name="yazim" readonly value="<%=thz("cevapll")%>" size="10"
</tr></font><a href="not_devam.asp?id=<%=thz("id")%>&cevapl=<%=thz("yazim")%>" style="text-decoration: none"><font color="#000000" face="Arial">
<table width="250" border="0">
<%
if session("uyedurum") = True Then
%>
<%
id=request.querystring("id")
yazim=request.querystring("yazim")
Set veritabani= Server.CreateObject("ADODB.Connection")
veritabani.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("5956thz1196thz5956.mdb")
sorgu="Select* from oldumu where id = " &id
set Kontrol=veritabani.Execute(sorgu)
if Kontrol.EOF then
response.redirect"yok.asp"
else
yazikontrol=trim(Kontrol("gerek"))
if yazim=yazikontrol then
response.redirect"var.asp"
else
response.redirect"yok.asp"
end if
end if
Kontrol.Close
set Kontrol=nothing
veritabani.Close
set veritabani=nothing
end if
%>
yazıma linki ise
asagıdaki kodla verdim
<table width="200" border="0">
<p>
<font color="#000000" face="Arial">
<a href="konuyai.asp?id=<%=thz("id")%>&yazim=<%=thz("yazim")%>" style="text-decoration: none">
<input type="text" name="yazim" readonly value="<%=thz("cevapll")%>" size="10"
</tr></font><a href="not_devam.asp?id=<%=thz("id")%>&cevapl=<%=thz("yazim")%>" style="text-decoration: none"><font color="#000000" face="Arial">
<table width="250" border="0">