<% Set rastbag = Server.Createobject("ADODB.Connection") rastbag.Open (Cumle) Set rs = Server.Createobject("ADODB.Recordset") sql = "select * from inbox where kime="&Session("usersNo")&" and id="&request.querystring("okut") rs.open sql, rastbag, 1, 3 if not rs.EOF then rs("okundu")="Y" rs.update Set rsm = Server.Createobject("ADODB.Recordset") sqlm = "select * from users where id="&rs("kimden") rsm.open sqlm, rastbag, 1, 3 %>

<%=rs("baslik")%>	<%=rs("tarih")%>
<%=rs("konu")%>
Mesajý Gönderenin Mail Adresi: <%=rsm("email")%>	Cevapla
<<Geri

<%end if rs.close rastbag.close set rs=nothing set rastbag=nothing %>