
05/05/2008, 11:34
|
| | Fecha de Ingreso: octubre-2007
Mensajes: 191
Antigüedad: 17 años, 6 meses Puntos: 0 | |
Re: Insertar Numero En Columna 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
%>
|