<% rid=postkontrol(request.QueryString("id")) sorgum="Select * from reklam where id="&rid&" order by id desc" rs.Open Sorgum, Baglantim, 1, 3 if rs.eof or rs.bof then Response.Write("

Reklam Bulunamadı.. ") else do while not rs.eof if rs.eof then exit do if rs("goster")=1 then adres=rs("detay") Response.Redirect("/ex_link/ex_link.asp?link="&adres&"") else response.Write("Reklamın Süresi Dolmuş") end if rs.movenext loop end if rs.close %>