<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% sBBSLangPage = "guest-language" BBS.SetupBBS BBS.SetScheme(0) if iBBSLogonType = US_Registered then response.redirect "../profile/controlpanel.asp" dim iCurrentLanguage, SQL if request.form("action") = "change" then response.cookies(sBBSCookieRoot & "guestlanguage") = BBS.ValidateNumeric(request.form("language")) response.cookies(sBBSCookieRoot & "guestlanguage").expires = dateadd("m", 2, now) dictEnvironment("V-MESSAGE") = dictLanguage("GUEST-LANGUAGE-CHANGE") dictEnvironment("C-LIST") = 0 else iCurrentLanguage = BBS.ValidateNumeric(request.cookies(sBBSCookieRoot & "guestlanguage")) SQL = "select * from languages" rsMaster.open SQL, dbconnection, adOpenForwardOnly, adLockOptimistic do until rsMaster.EOF dictEnvironment("V-LANGUAGE") = dictEnvironment("V-LANGUAGE") & "" & rsMaster.fields("longname").value & "" rsMaster.MoveNext loop rsMaster.close BBS.AddQuery(SQL) dictEnvironment("C-LIST") = 1 dictEnvironment("V-ACTION") = "guest-language.asp" end if dictEnvironment.add "V-TITLE", dictLanguage("GUEST-LANGUAGE-TITLE") dictEnvironment.add "C-SHOWRANDOMQUOTES", dictConfiguration("bDISPLAYBBSQUOTES") %> <% Filesystem.ExecuteBBSTemplate("/languages/guest-language.asp") %>