<% Set RS = Server.Createobject("ADODB.Recordset")
RS.Open "SELECT * FROM site WHERE onay='O' AND sira>0 ORDER by sira",BAG,1,3
n = RS.RecordCount %>
<table border="0" cellspacing="1" cellpadding="2" width="100%" bgcolor="#ADBFF1">
<tr bgcolor="#f7f7f7">
<td valign="middle" nowrap align="center" bgcolor="#3763E1" colspan="2"><font color="#FFFFFF" face="Verdana" size="1">Sıra</font></td>
</center>
<td width="100%" valign="middle" bgcolor="#3763E1">
<p align="left"><font color="#FFFFFF" face="Verdana" size="1">En
Çok Hit Alan 30</font></p>
</td>
<center>
<td valign="middle" bgcolor="#3763E1">
<p align="center"><font color="#FFFFFF" face="Verdana" size="1">Kategori</font></p>
</td>
<td nowrap align="center" valign="middle" bgcolor="#3763E1"><font color="#FFFFFF" face="Verdana" size="1">Hit</font></td>
</tr>
<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr>
<% RS.Movenext
Next %>
</table>
</center></div><table border="0" cellpadding="0"
cellspacing="3" width="100%">
<tr><td>
<a href="http://www.x.com" target=_blank><img src="http://www.x.com/reklam.gif" border="0"></a>
</td></tr> </table>
<table border="0" cellpadding="2"
cellspacing="1" width="100%" bordercolor="#FFFFFF">
<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr>
<% RS.Movenext
Next %>
</table>
</center></div><table border="0" cellpadding="0"
cellspacing="3" width="100%">
<tr>
<tr><td>
<a href="http://www.x.com" target=_blank><img border="0" src="reklam.gif" border="0"></a>
</td></tr> </table>
<table border="0" cellpadding="2"
cellspacing="1" width="100%" bordercolor="#FFFFFF">
<% FOR i = 1 to 10
IF RS.eof THEN EXIT FOR
IF i mod 2 = 0 THEN bg = "#FFFFFF" ELSE bg = "#FFFFFF" END IF
IF RS("siradun") > RS("sira") THEN img = "up" END IF
IF RS("siradun") = RS("sira") THEN img = "same" END IF
IF RS("siradun") < RS("sira") THEN img = "down" END IF
IF RS("siradun") = "0" THEN img = "new" END IF %>
<tr>
<td nowrap align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=RS("sira")%></font></td>
<td nowrap align="center" bgcolor="#FFFFFF"><img border="0" src="image/<%=img%>.gif"></td>
<td width="100%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><a href="out.asp?id=<%=RS("id")%>" target="_blank" title="<%=RS("adres")%>"><%=RS("site")%></a></font></td>
<td width="100" nowrap align="center" valign="middle" bgcolor="<%=bg%>"><font size="1" face="Verdana"><a href="kategori.asp?kate=<%=RS("kategori")%>"><%=RS("kategori")%></a></font></td>
<td width="50" nowrap align="center" bgcolor="#FFFFFF" rowspan="1"><font face="Verdana" size="1"><%=RS("hit")%></font></td>
</tr> </p>
<% RS.Movenext
Next %>
</table>