<% if strDBNTUserName = "" then Err_Msg = "
  • " & fLang(strLangFlash_Games00010) & "
  • " Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
    " & vbNewLine & _ " " & getCurrentSkinIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangForum_Stats00020) & "
    " & vbNewLine & _ "

    " & fLang(strLangWas_Problem00010) & "

    " & vbNewLine & _ "

    " & fLang(strLangForum_Stats00040) & "

    " & vbNewLine & _ "

    " & fLang(strLangBack_Forum00010) & "

    " & vbNewLine & _ "
    " & vbNewLine WriteFooter Response.End else %> <% '## Do Cookie stuffs with reload nRefreshTime = Request.Cookies(strTempCookieType & "Reload") if Request.form("cookie") = "1" then if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "Reload").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "Reload") = Request.Form("RefreshTime") Response.Cookies(strTempCookieType & "Reload").expires = strForumTimeAdjust + 365 nRefreshTime = Request.Form("RefreshTime") end if if nRefreshTime = "" then nRefreshTime = 0 end if ActiveSince = Request.Cookies(strTempCookieType & "ActiveSince") '## Do Cookie stuffs with show last date if Request.form("cookie") = "2" then ActiveSince = Request.Form("ShowSinceDateTime") if strSetCookieToForum = 1 then Response.Cookies(strTempCookieType & "ActiveSince").Path = strTempCookieType end if Response.Cookies(strTempCookieType & "ActiveSince") = ActiveSince end if mypage = request("whichpage") If mypage = "" then mypage = 1 end if mypagesize = request.cookies("paging")("pagesize") If mypagesize = "" then mypagesize = 15 end if %> <% Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " " & fLang(strLangAll_Forums00010) & "
    " & vbNewLine & _ " " & getCurrentSkinIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & fLang(strLangFlash_Games00020) & "
    " & vbNewLine %>
    <% Call CornerTop %>
     <% =fLang(strLangFlash_Games00020) %>

    <% =fLangN(strLangFlash_Games00030,strForumTitle) %>
    <% '## Forum_SQL - Get Games from DB Dim my_Conn strSql = "SELECT " & strTablePrefix & "games.id" strSql = strSql & ", " & strTablePrefix & "games.imageurl" strSql = strSql & ", " & strTablePrefix & "games.name" strSql = strSql & ", " & strTablePrefix & "games.display" strSql = strSql & ", " & strTablePrefix & "games.gameurl" strSql = strSql & " FROM " & strTablePrefix & "games " strSql = strSql & " WHERE " & strTablePrefix & "games.display = '1' " strSql = strSql & " ORDER BY " & strTablePrefix & "games.name ASC;" set rs = Server.CreateObject("ADODB.Recordset") rs.CursorLocation = adUseClient rs.cachesize = 20 rs.open strSql, my_Conn, 3 if rs.EOF or rs.BOF then '## No replies found in DB %> <% else rs.movefirst rs.pagesize = strPageSize maxpages = cint(rs.pagecount) intRowCounter = 0 %>
    <% =fLang(strLangFlash_Games00040) %>
    <% do until rs.EOF '** %> <% rs.MoveNext intRowCounter = intRowCounter + 1 if (intRowCounter mod 5) = 0 then %> <% end if loop %>
    ')> " border= 0 hspace= 0 width = 100 height = 100 alt = "<% =rs("name") %>">
    <% =rs("name") %>


    <% end if rs.close set rs = nothing %>
    <% Call CornerBottom %>

    <% WriteFooter Response.End sub Paging() if maxpages > 1 then if Request.QueryString("whichpage") = "" then pge = 1 else pge = Request.QueryString("whichpage") end if scriptname = request.servervariables("script_name") Response.Write("") for counter = 1 to maxpages if counter <> cint(pge) then ref = "" Response.Write ref end if else Response.Write("") end if if counter mod 15 = 0 then Response.Write("") end if next Response.Write("
    " & " " & widenum(counter) & "" & counter & "" & " " & widenum(counter) & "" & counter & "
    ") end if top = "0" end sub end if %>