<table>
<%
theFinished = 0
For theX=1 To RecordsetAdi.RecordCount %>
<tr>
<td><%Response.Write RecordsetAdi("Deger" ) %></td>
<%
RecordsetAdi.Movenext
If RecordsetAdi.Eof Then
TheFinished = 1
Exit For
End If
%>
<td><%Response.Write RecordsetAdi("Deger" ) %></td>
</tr>
<%
RecordsetAdi.Movenext
If RecordsetAdi.Eof Then
TheFinished = 1
Exit For
End If
Next
If TheFinished = 1 Then Response.Write "</tr>" %>
</table>