Usuarios online

[zanelati2002 0]

pessoal to montando um sistema para site de usuarios online a pagina que o numero de visitantes ser exibida ta abaixo mais acontece que só mostra a figura não esta mostrando os usuarios, onde estou errando no codigo

<!--#include file="db/conecta.asp" -->

<%
on error resume next

usu=request.querystring("id")
QueryStrr="?"& Request.ServerVariables("QUERY_STRING")
url=busca_url
a=base64decode(request.querystring("a"))
b=base64decode(request.querystring("b"))

if IsNumeric(usu)=true then


sql="select * from online_cad where login='"&a&"' and senha='"&b&"' and id="&usu
set rsx=conn.execute(sql)
if not rsx.eof then

Function DataMySQL(sData)
sMes	= Month( sData )
sDia	= Day( sData )
sHoras	= Hour( sData )
sMinutos  = Minute( sData )
sSegundos  = Second( sData )
If sMes <= 9 Then sMes = "0" & sMes
If sDia <= 9 Then sDia = "0" & sDia
If sHoras <= 9 Then sHoras = "0" & sHoras
If sMinutos <= 9 Then sMinutos = "0" & sMinutos
If sSegundos <= 9 Then sSegundos = "0" & sSegundos
DataMySQL = Year(sData) & "-" & sMes & "-" & sDia & " " & sHoras & ":" & sMinutos & ":" & sSegundos
End Function


Sub userOnline()
strSQL = "Select * From Online Where HostIP = '" & session.sessionid & "'"
Set Rs = conn.Execute(strSQL)
If Rs.BOF AND Rs.EOF Then
Call ExecuteSQL("INSERT INTO Online (HostIP ,usuario,DataAcesso , Pagina ) VALUES('" & session.sessionid & "',"&usu&" ,'" & DataMySQL(Now()) & "', '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "');")
Else
Call ExecuteSQL("UPDATE Online SET DataAcesso = '" & DataMySQL(Now()) & "',Pagina = '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "',usuario="&usu&" Where HostIP = '" &session.sessionid& "';")
End If
Rs.close
End Sub



Sub userOffline()
 timeleft = DATEADD("n", -5, Now())
 Call ExecuteSQL("DELETE FROM Online WHERE DataAcesso < '"& DataMySQL(timeleft) &"';")
End Sub


Sub ExecuteSQL(xstrSQL)
conn.Execute(xstrSQL)
End Sub 


Call userOffline()
Call userOnline()

sql="select count(*) as total from online where usuario="&cint(usu)&" and pagina = '" & Request.ServerVariables("SCRIPT_NAME") & QueryStrr & "'"
set rs=conn.execute(sql)
if not rs.eof then
x=rs("total")
else
x=0
end if
rs.close
set rs=nothing
end if

if rsx("texto")<>true then
%>

document.write("<style type='text/css'>");
document.write(".numer_online {");
document.write("	font-family: <%=rsx("fonte")%>;");
document.write("	font-size: <%=rsx("tamanho")%>px;");
document.write("	color: #<%=rsx("cor")%>;");
document.write("}");
document.write("</style>");
document.write("<table width='100' border='0' cellspacing='0' cellpadding='0'>");
document.write("  <tr>");
document.write("	<td><img src='<%=url%>/imagens/topo_img_online.gif' width='100' height='17'></td>");
document.write("  </tr>");
document.write("  <tr>");
document.write("	<td background='<%=url%>/imagens/meio_img_online.gif'><div align='center' class='numer_online'><%=x%></div></td>");
document.write("  </tr>");
document.write("  <tr>");
document.write("	<td><img src='<%=url%>/imagens/fim_img_online.gif' width='100' height='17'></td>");
document.write("  </tr>");
document.write("</table>");

<%
else
%>
document.write("<style type='text/css'>");
document.write(".numer_online {");
document.write("	font-family: <%=rsx("fonte")%>;");
document.write("	font-size: <%=rsx("tamanho")%>px;");
document.write("	color: #<%=rsx("cor")%>;");
document.write("}");
document.write("</style>");
document.write("<span class='numer_online'><%=replace(rsx("frase"),"10",x)%></span>");
<%
end if
end if 
rsx.close
set rsx=nothing
call fecha_conexao

%>

[xanburzum 169]

onde você esta passando a variavel com o total de user´s

[zanelati2002 0]

aqui

document.write(".numer_online {");

 

mostra o total junto com a figura