<%@ Language="VBScript"%>
<%Response.Buffer=TRUE%>
<%REM Vad är detta? Session.LCID = 1053%>
<%
REM nedanstående två rader för ads rotator
url=Request.QueryString("url")
If url<>"" then Response.Redirect(url)
IF Request.Querystring("lang")="eng" THEN
Session("lang")="eng"
ELSEIF Request.Querystring("lang")="se" THEN
Session("lang")="se"
ELSEIF Request.Querystring("lang")="pt" THEN
Session("lang")="pt"
ELSEIF Request.Querystring("lang")="ro" THEN
Session("lang")="ro"
ELSEIF Request.Querystring("lang")="pl" THEN
Session("lang")="pl"
else
Session("lang")="eng"
END IF
%>
ManagerGlory.com<%if session("lang")="eng" then%> - The Football Manager game - a FREE persistant browser based game(PBBG)<%else%> - ett GRATIS managerspel för dig som gillar fotboll<%end if%>
ManagerGlory - Your online football manager game
<%
set adrotator=Server.CreateObject("MSWC.AdRotator")
adrotator.TargetFrame="target='_blank'"
Randomize
seed=Int((5 * Rnd) + 1)
if seed=1 or seed=2 or seed=3 or seed=4 or seed=5 then%>
<%elseif seed=6 then%>
<%elseif seed=7 then%>
<% else%>
<%
rem response.write(adrotator.GetAdvertisement("banner/ads_out.txt"))
end if
%>
<%select case request.querystring("exec")
case else response.write "Managerglory Information"
end select%>
<% IF Request.Querystring("exec")="register" THEN
Server.Execute "register/register.html"
ELSEIF Request.Querystring("exec")="register_duplicate" THEN
Server.Execute "register/register_duplicate.html"
ELSEIF Request.Querystring("exec")="register_OK" THEN
Server.Execute "register/register1.asp"
ELSEIF Request.Querystring("exec")="register_friend" THEN
Server.Execute "register/register_friend1.asp"
ELSEIF Request.Querystring("exec")="losenkontroll" THEN
Server.Execute "login/losenkontroll.asp"
ELSEIF Request.Querystring("exec")="forum" THEN
Server.Execute "forum/forum11.asp"
ELSEIF Request.Querystring("exec")="forum_undergrupp" THEN
Server.Execute "forum/undergrupp.asp"
ELSEIF Request.Querystring("exec")="forum_nytt" THEN
Server.Execute "forum/forum33.asp"
ELSEIF Request.Querystring("exec")="forum_svara" THEN
Server.Execute "forum/forum22.asp"
ELSEIF Request.Querystring("exec")="contact" THEN
Server.Execute "misc/contact.asp"
ELSEIF Request.Querystring("exec")="fraga_skickad" THEN
Server.Execute "misc/message_sent.asp"
ELSEIF Request.Querystring("exec")="pass" THEN
Server.Execute "misc/forgotten_pass.asp"
ELSEIF Request.Querystring("exec")="mail_pass" THEN
Server.Execute "misc/mail_pass.asp"
ELSEIF Request.Querystring("exec")="game_info" THEN
Server.Execute "misc/game_info.asp"
ELSEIF Request.Querystring("exec")="links" THEN
Server.Execute "misc/links.asp"
ELSEIF Request.Querystring("exec")="remove" THEN
Server.Execute "misc/remove.asp"
ELSEIF Request.Querystring("exec")="remove_member" THEN
Server.Execute "misc/remove_member.asp"
ELSEIF Request.Querystring("exec")="advert" THEN
Server.Execute "misc/advert.asp"
ELSEIF Request.Querystring("exec")="condition" THEN
Server.Execute "misc/condition.asp"
ELSEIF Request.Querystring("exec")="about" THEN
Server.Execute "misc/about.asp"
ELSEIF Request.Querystring("exec")="validation" THEN
Server.Execute "register/validation.asp"
ELSEIF Request.Querystring("exec")="help" THEN
Server.Execute "help/help.asp"
ELSE
Server.Execute "misc/info.asp"
END IF%>
<%elseif seed=7 then%>
