Sorunumu aşağıdaki şekilde çözdüm aynı sorunla karşılaşan biri olursa belki bir faydası olur.
NOT : Bir proje için sıralama yöntemlerini inceliyorum, başka türlü alternatif sıralama şekilleri hakkında bilginiz varsa yardımcı olmanızı bekliyorum mesela üstte 3 ortada 5 altta 8 sıralı gibi ?
<table width="31" border="1" cellpadding="0" cellspacing="0" bordercolor="#993300">
<tr>
<%
Dim Conn
Dim SQLTemp
Set Conn = server.CreateObject("ADODB.Connection")
Conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db\uye.mdb")& ";"
Conn.Open
SQLTemp = "SELECT * FROM sirala"
set rstemp=Conn.execute(SQLTemp)
i = 1
Do While Not rstemp.EOF
%>
<td width="200"><%=rstemp("adi")%></td>
<%
if i mod 5 = 0 then ' kaça bölünmesini istiyorsak o rakamı girin
Response.Write "</tr>"' BURADA <tr> vardı ben onu sildim o zaman tablolar düzeldi.
end if
%>
<%
i = i + 1
rstemp.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>
</tr></table>