<%
set rs=server.CreateObject("adodb.recordset")
sqlstr1="select memb___id from MEMB_INFO"
rs.open sqlstr1,conn,1,1
tatalid=rs.recordcount
rs.close
sqlstr2="select Name from Character"
rs.open sqlstr2,conn,1,1
tatalchar=rs.recordcount
rs.close
sqlstr="select memb___id from MEMB_STAT where ConnectStat=1"
rs.open sqlstr,conn,1,1
tatalrecord=rs.recordcount
renshu=tatalrecord
rs.close
%>
-=Mu Online=-
Servidor: MuDaRk
IP: muvillamaria.no-ip.org
Puerto: 44405
Exp & Drops: 1500x & 90%
Mobs HP: 100%
Bless Bug: ON
Cuentas Totales: <%=tatalid%>
Personajes Totales: <%=tatalchar%>
Usuarios Online: <%=renshu%>/16
Jugadores Online
Char
Nombre
Login
Nivel
Mapa
<%
dim anum,abg
anum=1
set rs=server.CreateObject("adodb.recordset")
sql="select * from AccountCharacter, MEMB_STAT, Character where MEMB_STAT.ConnectStat=1 AND AccountCharacter.Id=MEMB_STAT.memb___id AND Character.AccountID=MEMB_STAT.memb___id AND AccountCharacter.GameIDC=Character.Name order by ConnectTM asc"
rs.open sql,conn,1,1
do while not rs.eof
if anum mod 2=0 then
abg="#ffffff"
else
abg="#f4f4f4"
end if
SELECT CASE rs("MapNumber")
CASE 0:
mapa="Lorencia"
CASE 1:
mapa="Dungeon"
CASE 2:
mapa="Davias"
CASE 3:
mapa="Noria"
CASE 4:
mapa="LTower"
CASE 6:
mapa="Arena"
CASE 7:
mapa="Atlans"
CASE 8:
mapa="Tarkan"
CASE 9:
mapa="DSquare"
CASE 10:
mapa="Icarus"
CASE 11:
mapa="BCastle1"
CASE 12:
mapa="BCastle2"
CASE 13:
mapa="BCastle3"
CASE 14:
mapa="BCastle4"
CASE 15:
mapa="BCastle5"
CASE 16:
mapa="BCastle6"
CASE ELSE:
mapa="Perdido"
END SELECT
%>
<%=rs("GameIDC")%>
<%=rs("memb___id")%>
<%=Right(rs("ConnectTM"),8)%>
<%=rs("cLevel")%>
<%=mapa%>
<%
rs.movenext
anum=anum+1
loop
rs.close
set rs=nothing
%>
Ultimos 10 Jugadores
Char
Nombre
Desconexion
<%
dim bnum,bbg
bnum=1
set rs=server.CreateObject("adodb.recordset")
sql="select top 10 * from AccountCharacter, MEMB_STAT where AccountCharacter.Id=MEMB_STAT.memb___id order by DisConnectTM desc"
rs.open sql,conn,1,1
do while not rs.eof
if bnum mod 2=0 then
bbg="#ffffff"
else
bbg="#f4f4f4"
end if
%>
<%=rs("GameIDC")%>
<%=rs("memb___id")%>
<%=rs("DisConnectTM")%>
<%
rs.movenext
bnum=bnum+1
loop
rs.close
set rs=nothing
%>
