<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>