rs mod variabler

Hey E

IIS/ASP/IE

hvordan får jeg indsat rs("MOC_PH_timer") i denne kode, så dbdata vurderes mod varibler?

kode:
dim sql, query, navn
    SqlL = "SELECT MOCid, MOC_stelnr, MOC_PH_timer FROM fly_status ORDER BY MOC_stelnr"
    Set rs = Conn.execute(SqlL)
Dim Array()
i = 1
    While Not rs.EOF
        Redim Preserve Array(i)
            Array(i) = rs("MOCid") & "," & rs("MOC_stelnr")
            i = i + 1
    rs.MoveNext
    Wend
'Her tæller vi antal records
Query = "Select count(*) as Antal from fly_status"
Set Rs=Conn.Execute(Query)
    Antal = Rs.Fields("antal")
Dim AntalV, Vtal
    AntalV = 31 %>
<table cellpadding="0" cellspacing="0" border="1" width="100%">
<tr>
<%    Vtal = 310
    For ii = 0 to AntalV
        Vtal = Vtal - 10 %>
        <td class="vandret" nowrap><%=Vtal%></td>
            <% For i = 1 to Antal %>
                <td <%if KODE HER HER HER > Vtal then%>bgcolor="#0099CC"<%end if%>></td>
            <%next%>
</tr>
    <%next%>
<tr>
bla bla