<% kd.Open "SELECT TOP 7 * FROM tblvideolar WHERE baslik LIKE '%" & ali & "%' OR etiket LIKE '%" & ali & "%'",adoCon, 1, 3
intLooper = 0
Do while intLooper < kd.RecordCount And Not kd.Eof %>
<div>
<div><%=kd("baslik")%></a></div>
<div><%=kd("izlenme")%> izlenme
</div>
<% intLooper = intLooper + 1
kd.MoveNext
Loop
kd.Close %>