<% @ LCID = 1033 %>

<% if Request.querystring("mode")="information" or Request.querystring("mode")="" then %> Information Mos service is an easy way to find and test those few MooServers that are avaliable to public use. Check the servers list too see which servers are online right now! News 27-03-2006 I've added a new JavaMos server hosted by Banjaxx Status Burfelt's MOS is down due to server unstability. I'd like to bring it back, but if you need a server there are other great hosts to choose from. Please check the list of servers. <% elseif Request.querystring("mode")="servers" then %> Hostname Status IP and Port Uptime JavaMos IP: moojava.dns2go.com Port: 1203 <% Set conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mos.mdb") & ";UID=;PWD=;" conn.Open connstring sql1 = "SELECT * FROM Stats WHERE Server='moojava.dns2go.com' And Status='on'" sql2 = "SELECT * FROM Stats WHERE Server='moojava.dns2go.com' And Status='off'" Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 rs2.open sql2,conn,1,1 if rs1.recordcount + rs2.recordcount>1 then strIalt= rs1.recordcount + rs2.recordcount else strIalt=1 end if Uptime=100/strIalt * rs1.recordcount %> <% =FormatNumber(Uptime,1) %>% Banjaxx's Mos IP: jamclx.ath.cx Port: 1203 <% Set conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mos.mdb") & ";UID=;PWD=;" conn.Open connstring sql1 = "SELECT * FROM Stats WHERE Server='jamclx.ath.cx' And Status='on'" sql2 = "SELECT * FROM Stats WHERE Server='jamclx.ath.cx' And Status='off'" Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 rs2.open sql2,conn,1,1 if rs1.recordcount + rs2.recordcount>1 then strIalt= rs1.recordcount + rs2.recordcount else strIalt=1 end if Uptime=100/strIalt * rs1.recordcount %> <% =FormatNumber(Uptime,1) %>% Neat_kliker IP: helper3000.net Port: 1209 <% Set conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mos.mdb") & ";UID=;PWD=;" conn.Open connstring sql1 = "SELECT * FROM Stats WHERE Server='helper3000.net' And Status='on'" sql2 = "SELECT * FROM Stats WHERE Server='helper3000.net' And Status='off'" Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 rs2.open sql2,conn,1,1 if rs1.recordcount + rs2.recordcount>1 then strIalt= rs1.recordcount + rs2.recordcount else strIalt=1 end if Uptime=100/strIalt * rs1.recordcount %> <% =FormatNumber(Uptime,1) %>% Sphax-server IP: sphax.dyndns.org Port: 1200 <% Set conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mos.mdb") & ";UID=;PWD=;" conn.Open connstring sql1 = "SELECT * FROM Stats WHERE Server='sphax.dyndns.org' And Status='on'" sql2 = "SELECT * FROM Stats WHERE Server='sphax.dyndns.org' And Status='off'" Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 rs2.open sql2,conn,1,1 if rs1.recordcount + rs2.recordcount>1 then strIalt= rs1.recordcount + rs2.recordcount else strIalt=1 end if Uptime=100/strIalt * rs1.recordcount %> <% =FormatNumber(Uptime,1) %>% Justin_H IP: mooapi.anjusevin.com Port: 1203 <% Set conn = Server.CreateObject("ADODB.Connection") connstring = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mos.mdb") & ";UID=;PWD=;" conn.Open connstring sql1 = "SELECT * FROM Stats WHERE Server='mooapi.anjusevin.com' And Status='on'" sql2 = "SELECT * FROM Stats WHERE Server='mooapi.anjusevin.com' And Status='off'" Set rs1 = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 rs2.open sql2,conn,1,1 if rs1.recordcount + rs2.recordcount>1 then strIalt= rs1.recordcount + rs2.recordcount else strIalt=1 end if Uptime=100/strIalt * rs1.recordcount %> <% =FormatNumber(Uptime,1) %>% You need Vitalize to view server status <% elseif Request.querystring("mode")="links" then %> Links www.3ee.com Creators of MOO technology. All the info you will ever need on Moo www.tigerworks.co.uk Examples of how to use MooGame/Mooclick to send data www.andosmedia.com Example of how to create an online client and server with Moosock www.flyin.com Tutorial on how to use Moosock and PHP MooSock to add/extract data in MySQL www.moorpg.tk Joshtek's Moo site. Reviews and interviews with Moo developers 3ee.com's moo gallery Great collection of what users have created with Moo LittleWashu's tutorials LittleWashu's articles, examples and tips on moo developement Mos check Justin_H has build this site which simply gives you the names of servers online and their ports. Insert the output of this page into your app by using Moosock, and allow your program to automaticly pick the servers that are online. <% end if %>