<%link=request("link") %> <% set rs = server.createobject("ADODB.Recordset") sql = "select * from haberler where link='"&link&"'" rs.open sql,Connection,1,3 if rs.EOF then baslik="Hayatoğlu Nakliyat : Evden Eve Nakliyat ,Evden Eve, Nakliyat ve Evden Eve Taşımacılık" anah="Evden Eve Nakliyat ,Evden Eve, Nakliyat ve Evden Eve Taşımacılık,EvdenEve,Nakliye,Taşıma" dess="Hayatoğlu Nakliyat : Evden Eve Nakliyat ,Evden Eve, Nakliyat ve Evden Eve Taşımacılık" bak=1 else bak=2 baslik=rs("baslik") anah=rs("aciklama") dess=rs("baslik") end if rs.Close set rs= nothing %> <%=baslik %>
<%if bak=1 then %>

Haberler

<% set haberler = server.createobject("ADODB.Recordset") sqlh = "select * from haberler order by id desc" haberler.open sqlh,Connection,1,3 if not haberler.EOF then do while not haberler.EOF %>

" title="<%=haberler("baslik") %>"><%=haberler("baslik") %>

<% haberler.MoveNext loop end if haberler.Close set haberler = nothing%> <%else %>

<%=baslik %>

<%=anah %>

Diğer Haberler

Tüm Haberler

<% set haberler = server.createobject("ADODB.Recordset") sqlh = "select top 5 * from haberler order by id desc" haberler.open sqlh,Connection,1,3 if not haberler.EOF then do while not haberler.EOF %>

" title="<%=haberler("baslik") %>"><%=haberler("baslik") %>

<% haberler.MoveNext loop end if haberler.Close set haberler = nothing%> <%end if %>