arkadaşlar acil for next & do loop yardım

<%
id=request("id")
sql = "SELECT * from temelbilgiler where id="&id&""
Set rs=CreateObject("Adodb.Recordset")
rs.open sql,conn,3,3
if not rs.eof then
***************
ara1=rs("ara1")
ara2=rs("ara2")
ara3=rs("ara3")
ara4=rs("ara4")
ara5=rs("ara5")
ara6=rs("ara6")
ara7=rs("ara7")
ara8=rs("ara8")
ara9=rs("ara9")
ara10=rs("ara10")
ara11=rs("ara11")
ara12=rs("ara12")
ara13=rs("ara13")
ara14=rs("ara14")
ara15=rs("ara15")
ara16=rs("ara16")
ara17=rs("ara17")
ara18=rs("ara18")
ara19=rs("ara19")
ara20=rs("ara20")
ara21=rs("ara21")
ara22=rs("ara22")
ara23=rs("ara23")
ara24=rs("ara24")
ara25=rs("ara25")
ara26=rs("ara26")
ara27=rs("ara27")
ara28=rs("ara28")
ara29=rs("ara29")
***********************


örnek yukarıda yıldızlı olan alandaki field ları çağırıp değişkene atama yapıyorum
fakat bunu en kısa yoldan for next yada do loop döngüsü içinde yapma şansım varmı teşekkürler
for i = 1 to 29

????=rs("ara"&(i))
next
%>

dim ara(30)

for i = 1 to 29
ara(i)=rs("ara"&(i))
next
bu kadar basit

OKTAYMAN tşkler birşey sorayım
ara24=rs("ara24") örneğin bu şekilde kayıt geliyor

dim ara(30)

for i = 1 to 29
ara(i)=rs("ara"&(i))
next ama bu şekilde ara1 atandığını varsayıyorum fakay kayıt gelmiyor yada göstermiyor sıkıntı nedir ?

ara1 değilde ara(1) şeklinde yazarsanız ksenilikle gelecektir.

OKTAYMAN tşkler kardeşim sağolasın işimi gördü