<% Set rastbag = Server.Createobject("ADODB.Connection") rastbag.Open (Cumle) Set rs = Server.Createobject("ADODB.Recordset") sql = "select * from sponsors where id="&request.querystring("okut") rs.open sql, rastbag, 1, 3 rs("okundu")="Y" rs.update if not rs.EOF then %>

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

<%end if%>