Insertar Numero En Columna

[darkmcloud]

disculpa la ignorancia, pero como hago ese ciclo ???
este es el codigo de mis tabla :

Código:

  <% set Cnn=Server.CreateObject("ADODB.Connection")
	set rs=Server.CreateObject("ADODB.Recordset")
	Cnn.Open Session("cnx")
	
	strSQl="select  *, DATEDIFF (minute, time_accion, getdate()) as difes from tblusuarios where DATEDIFF (minute, time_accion, getdate()) < 56982299 and DATEDIFF (DAY, fecha_accion, getdate()) = 0 and estado='online' "
set rs = Cnn.Execute(strSQL)
cnn.Execute(strSQL)
	
	If not rs.EOF then

%>
    
        </p>
		  <TABLE WIDTH=294 BORDER=1 align="center"  CELLSPACING="1"> 
		    <tr> 
  <td width="76" bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Usuario</font></strong></div></td>
  <td width="56" bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Hora</font></strong></div></td>
  <td width="55" bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Ip</font></strong></div></td>
    <td width="99" bgcolor="#F0F0F0"> <div align="center"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Visitando</font></strong></div></td>

  </tr>
	  <%do while not rs.EOF%>
  
	<tr>
  <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("idusuario")%></small></font></div></td>
  <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("time_accion")%></small></font></div></td>
  <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("ip")%></small></font></div></td>
    <td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><small><%=RS.Fields("visitando")%></small></font></div></td>

<%rs.Movenext%>
  
</tr>
  <%loop

end if

rs.Close

set rs = nothing

Cnn.Close

set Cnn = nothing
%>