Legends la IV Era - La comunità Virtuale Fantasy

<% Function NoHTML(strInput) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RegEx.IgnoreCase = True ' conserva la formattazione strInput = Replace(strInput, "
", chr(10)) NoHTML = RegEx.Replace(strInput, "") End Function Dim attuale attuale=Date() sql= "SELECT COUNT(IDonline) AS RECORD_COUNT FROM online" set RS=dbConn.Execute(sql) uot=RS("RECORD_COUNT") sql= "SELECT COUNT(idutenti) AS RECORD_COUNT FROM utenti where (datau='"&attuale&"')" set RS=dbConn.Execute(sql) gen=RS("RECORD_COUNT") sql= "SELECT COUNT(idutenti) AS RECORD_COUNT FROM utenti where (datar='"&attuale&"')" set RS=dbConn.Execute(sql) nuovi=RS("RECORD_COUNT") sql= "SELECT COUNT(idutenti) AS RECORD_COUNT FROM utenti where (sesso='maschio')" set RS=dbConn.Execute(sql) pm=RS("RECORD_COUNT") sql= "SELECT COUNT(idutenti) AS RECORD_COUNT FROM utenti where (sesso='femmina')" set RS=dbConn.Execute(sql) pf=RS("RECORD_COUNT") pt=pm+pf sql= "SELECT COUNT(idforum) AS RECORD_COUNT FROM bacheche" set RS=dbConn.Execute(sql) mbt=RS("RECORD_COUNT") sql= "SELECT COUNT(idposta) AS RECORD_COUNT FROM posta" set RS=dbConn.Execute(sql) pbt=RS("RECORD_COUNT") sql="select temperatura,meteo from meteo" set RS=dbConn.Execute(sql) temperatura=RS("temperatura") meteo=RS("meteo") sql="select idforum,topic,msg from bacheche where (forum='Bacheca Avventure') and (idforum=idrisp) order by idforum DESC" set RS=dbConn.Execute(sql) if Not RS.Eof then idm1=RS("idforum") topic1=RS("topic") msg1=RS("msg") msg1=NoHTML(msg1) testms=Len(msg1) if testms>105 then msg1=Left(msg1,103)&".." end if else idm1=0 topic1="Nessun messaggio" msg1="Nessun messaggio presente nel database" end if sql="select idforum,topic,msg from bacheche where (forum='Bacheca Avventure') and (idforum=idrisp) order by idforum DESC" set RS=dbConn.Execute(sql) if Not RS.Eof then idm2=RS("idforum") topic2=RS("topic") msg2=RS("msg") msg2=NoHTML(msg2) testms=Len(msg2) if testms>190 then msg2=Left(msg2,188)&".." end if else idm2=0 topic2="Nessun messaggio" msg2="Nessun messaggio presente nel database" end if sql="select idforum,topic,msg from bacheche where (forum='Bacheca Litigi e Discussioni') and (idforum=idrisp) order by idforum DESC" set RS=dbConn.Execute(sql) if Not RS.Eof then idm3=RS("idforum") topic3=RS("topic") msg3=RS("msg") msg3=NoHTML(msg3) testms=Len(msg3) if testms>180 then msg3=Left(msg3,178)&".." end if else idm3=0 topic3="Nessun messaggio" msg3="Nessun messaggio presente nel database" end if cmpl="" i=0 adr=Len(attuale)-5 attualep=Left(attuale,adr) sql="select nick,datar from utenti order by idutenti ASC" set RS=dbConn.Execute(sql) if Not RS.Eof then Do while (Not RS.EOF) and (i<19) datar=RS("datar") ldr=Len(datar)-5 datar=Left(datar,ldr) if datar=attualep then cmpl=RS("nick")&", "&cmpl i=i+1 end if RS.movenext Loop cmpl="I cittadini: "&cmpl&".." else cmpl=cmpl&"Nessun Cittadino di Legends festeggia oggi il suo compleanno.." end if sql="select comunicazioni from staff" set RS=dbConn.Execute(sql) if Not RS.Eof then staff=RS("comunicazioni") if staff="" then staff="Nessuna comunicazione dallo Staff" else testms=Len(staff) if testms>108 then staff=Left(staff,106)&".." end if end if else staff="Nessuna comunicazione dallo Staff" end if RS.Close dbConn.Close set RS=nothing set dbConn=nothing annoc=DatePart("yyyy", attuale) giornodc=Datepart("d",attuale) mesea=Datepart("m",attuale) annof=2004 annop=Int(annoc)-1635 if (giornodc>3) and (giornodc<8) then lunam="l1.jpg" elseif (giornodc>7) and (giornodc<11) then lunam="l2.jpg" elseif (giornodc>10) and (giornodc<14) then lunam="l3.jpg" elseif (giornodc>13) and (giornodc<18) then lunam="l4.jpg" elseif (giornodc>17) and (giornodc<21) then lunam="l5.jpg" elseif (giornodc>20) and (giornodc<25) then lunam="l6.jpg" elseif (giornodc>24) and (giornodc<29) then lunam="l7.jpg" else lunam="l8.jpg" end if %> Legends la IV Era - La comunità Virtuale Fantasy

Legendstaff © 2004 - <%response.write (annoc)%> Tutti i diritti riservati

<%response.write (staff)%>[CONTINUA]

<%response.write (cmpl)%>[CONTINUA]

<%response.write (topic1)%>
<%response.write (msg1)%> [CONTINUA]

<%response.write (uot)%> Sono i sudditi per le strade di Legends in questo momento

<%response.write (pt)%> Sono i cittadini di Legends di cui <%response.write (pm)%> uomini e <%response.write (pf)%> donne. Chi non accede a Legends da oltre 2 mesi viene rimosso dal database

<%response.write (topic2)%>
<%response.write (msg2)%> [CONTINUA]

<%response.write (gen)%> Sono stati gli ingressi a Legends nelle ultime 24 ore

<%response.write (nuovi)%> Sono stati i nuovi personaggi creati nelle ultime 24 ore

<%response.write (mbt)%> Sono i messaggi affissi nelle bacheche di Legends

<%response.write (pbt)%> Sono le missive giacenti nelle caselle del popolo di Legends

<%response.write (topic3)%>
<%response.write (msg3)%> [CONTINUA]

Tempo:

Temperatura: <%response.write (temperatura)%>°

Luna:

Legend - © 2007. Tutti i diritti sono riservati. E' vietata la duplicazione anche parziale senza il consenso scritto da parte della Comunità.
La partecipazione a Legends è gratuita, tutto il materiale inserito all'interno della comunità si intende esplicitamente messo in condivisione con gli altri membri della comunità ai fini del gioco. Con la creazione del personaggio si da espresso consenso alla Comunità di LEGENDS alla gestione dei dati personali (e-mail) ai soli fini della partecipazione alla Comunità. La partecipazione alla comunità implica l'implicita accettazione delle sue regole.
Comunicazioni & Informazioni: