Legend Of Websites

Walrus

Browsing one of my regular 'haunts' today revealed a broken website, but some of the code was a little revealing.

The site in question is

[url]www.legendofmir.net[/url]

and here's a related forum thread (I'm Walrus there too).

[url]http://forum.gnonline.net/showthread.php?t=65972[/url]

For those not bothered with links, here a portion of the 'interesting' code:-

<%
	randomize()
	n1=50
	do until n1<4 and n1>0
		n1=cint(rnd()*100)
	loop
%>

lizardfoot

I hope you don't store any personal information on this site:

Set ConnX = Server.CreateObject("ADODB.Connection")  
ConnX.Open "DRIVER={SQL Server};SERVER=213.198.85.10;DATABASE=mirweb;UID=weblogin;PWD=rL15?p0z"  
SQL="SELECT * FROM POLL_MAIN INNER JOIN POLL_ANS ON POLL_MAIN.ID_MAIN=POLL_ANS.ID_Q WHERE ONLINE=1 order by data desc

I wonder how long Paula has been working on this site.

dhromed

@Walrus said:

<%
	randomize()
	n1=50
	do until n1<4 and n1>0
		n1=cint(rnd()*100)
	loop
%>

I bet he just wanted it to be really random by stringing randoms after one another.

Forgoing the fact that it may theoretically run forever. Unless rnd() is written to maximise spread?