<%
db_server ="ko serv ip adress"
db_user ="db_user"
db_pass ="db_pass"
db_name ="db_name"
db_con_string ="DRIVER={SQL Server}; SERVER="& db_server &"; UID="& db_user &"; pwd="& db_pass &"; database="& db_name &";"
Set cnn =Server.createObject("Adodb.Connection")
cnn.Open db_con_string
%>
<table>
        <tr>
                <tdclass="head"colspan="6">Who is Online</td>
        </tr>
<%Set ko =Cnn.Execute("SELECT * From CURRENTUSER") 
        Sira=0
%>      
        <tr>
                <tdwidth="50"><b>Sn</b></td>
                <tdwidth="150"><b>Player</b></td>
                <tdwidth="75"><b>Nation</b></td>
                <tdwidth="75"><b>LvL</b></td>
                <tdwidth="75"><b>Np</b></td>
                <tdwidth="75"><b>Lp</b></td>
        </tr>
                <%ifNot ko.EOF Then
                        DoWhileNot ko.EOF 
                        Kid= ko("strCharID")
                        Sira=Sira+1
                        SetUb=Cnn.Execute("Select * From USERDATA Where strUserID='"&Kid&"'  ")
                        irk =Ub("Nation")
                %>
        <tr>
                <tdclass="cizgi"><%=Sira%></td>
                <tdclass="cizgi"><%ifUb("Authority")=0ThenResponse.Write("<font color=#FF0000>")Endif%><%=Kid%><%ifUb("Authority")=0ThenResponse.Write("</font>")Endif%></td>
                <tdclass="cizgi"><%if irk="1"ThenResponse.Write("Karus")ElseResponse.Write("Human")Endif %></td>
                <tdclass="cizgi"><%=Ub("Level")%></td>
                <tdclass="cizgi"><%=Ub("Loyalty")%></td>
                <tdclass="cizgi"><%=Ub("LoyaltyMonthly")%></td>
        </tr>
                
                <%      ko.MoveNext
                        Loop    
                        Else
                                Response.Write("Not Have An Online Players.")
                        Endif
                        ko.Close
                %>

</table>