Array issue - I am cross posting from another forum here.

Since the response time is fast here and I am in bit of time crunch I am crtoss posting here. -
I have a rs which I display it in my output page like this.
With objRs
strSQL = "SELECT DealerMainID, DealerID, " & _
"DealerLongNm, DealerCity, DealerState, DealerCountryID, " & _ "DealerCustomerRvwContactEMailAddr, CirusStatusIndicator, " & _ "(SELECT CASE WHEN COUNT(*) > 0 THEN RIGHT(' ' + CAST(ROUND(COUNT(IPContactFullNm) * 1000/COUNT(*), -1)/10 AS VARCHAR(6)), 3) + '%' ELSE '---' END " & _ " FROM dbo.tmpSampleCustomerDealerReview s " & _
" WHERE s.CustDealerID = d.DealerID AND IPTranFlag = 1) AS [IPContactPct], " & _ "(SELECT CASE WHEN COUNT(*) > 0 THEN RIGHT(' ' + CAST(ROUND(COUNT(PSContactFullNm) * 1000/COUNT(*), -1)/10 AS VARCHAR(6)), 3) + '%' ELSE '---' END " & _ " FROM dbo.tmpSampleCustomerDealerReview s " & _
" WHERE s.CustDealerID = d.DealerID AND PSTranFlag = 1) AS [PSContactPct] " & _ " FROM dbo.lkuDealer d " & _
strWhereClause & " AND (ISNUMERIC(SUBSTRING(DealerID, 3, 4)) = 1)" & _ strOrderClause
.Open strSQL, objConn
If Not .EOF Then .MoveFirst
Do While Not .EOF
Response.Write "<TD align=left>=TEXT(" & DQ & Mid(objRs.Fields("DealerMainID"), 3) & DQ & ", " & DQ & "000000" & DQ & ")</TD>"
Response.Write "<TD align=left>=TEXT(" & DQ & Mid(objRs.Fields("DealerID"), 3) & DQ & ", " & DQ & "000000" & DQ & ")</TD>"
Response.Write "<TD align=left>" & objRs.Fields("DealerLongNm") & "</TD>"
Response.Write "<TD align=left>" & objRs.Fields("DealerCity") & "</TD>"
If Request.QueryString("DealerRegion") = "NA" Then
Response.Write "<TD align=left>" & objRs.Fields("DealerState") & "</TD>"
Else
Response.Write "<TD align=left>" & objRs.Fields("DealerCountryID") & "</TD>"
End If
Response.Write "<TD align=left>" & objRs.Fields("DealerCustomerRvwContactEMailAddr") & "</TD>" newCirusStatusIndicator = TRIM(CSTR(objRs.Fields ("CirusStatusIndicator").Value))
If newCirusStatusIndicator= "9" Then
newCirusStatusIndicator = "0"
Response.Write "<TD align=left>" & newCirusStatusIndicator & "</TD>"
Else
Response.Write "<TD align=left>" & objRs.Fields("CirusStatusIndicator") & "</TD>"
End if

status = TRIM(CSTR(objRs.Fields ("CirusStatusIndicator").Value))
Response.Write "<TD align=left>" & Right(" " & objRs.Fields("IPContactPct"), 4) & "</TD>"
Response.Write "<TD align=left>" & Right(" " & objRs.Fields("PSContactPct"), 4) & "</TD>"
Response.Write "</TR>"
Response.Write status
.MoveNext
'Response.Write status
Loop
.Close
End With

Every thing wortks fine so far. I need to take this record alione and display it in one more table - the record is
Response.Write "<TD align=left>" & objRs.Fields("CirusStatusIndicator") & "</TD>"

I tried to assign this as a variable but not able to retrieve all the instances because it is in the loop. I am getting only the last record. How do I pass this recordset as a array to be used in the other table?
Thanks
Sri