<%
id = Request.QueryString("id")
set Haber = Server.CreateObject("ADODB.RecordSet")
SQL="select * from basari where bid = " & id
Haber.open SQL,db,1,3
%>
<%if Haber.eof or Haber.bof then
Response.Write " "
Response.Write "KAYITLI BAŞARI BULUNAMADI ! ! !"
Response.End
end if
%>