RecordArray problem ASP

Hejsa NG.

Forleden fik jeg hjælpe her:
http://www.eksperten.dk/spm/701771

Og det virker som det skal. Nu er mit problem at når jeg tilføjer flere udtræk bliver disse kun vist én gang. Dvs. at selvom den viser 7 forskellige overskrifter, så er det samme tekst den viser til alle sammen.

Set rs = objConn.Execute("SELECT TOP 7  * FROM nyhedtemp ORDER BY id DESC")
pic = rs("pic")
indhold = rs("indhold")
dim recordarray(7)
i = 0

while not rs.eof
recordarray(i) = rs("overskrift")

i = i +1

rs.movenext

wend
i=0

Response.Write"" & recordarray(i+0) & ""
Response.Write"<img src='/newspics/" & pic & "' alt='Pic'>" & fncTextChange(indhold) & ""

for i =0 to 2

Response.Write"<img src='/newspics/" & pic & "' alt='Pic'>"
Response.Write"" & recordarray(i+1) & "</b><br>" & indhold & ""
Response.Write"" & recordarray(i+4) & ""
next
Response.Write"</table>"
%>

Nogen der kan hjælpe mig med at få 'pic' og 'indhold' til at følge recordarray(i) = rs("overskrift")

??