<% 'Response.AddHeader "REFRESH", ((Application(dbName&"sessiontimeout")-1)*60) & ";url="&HostType&Request.ServerVariables("SERVER_NAME")&selfpage&"?"&queryString Dim strTableWidth, appid, page, authorFieldWidth authorFieldWidth = Application(dbName&"leftFrame") strTableWidth = "95%" Session.contents.remove(dbName&"sharedValue") Session.contents.remove(dbName&"UpLoadSizeLimit") %> <% sub headerHTML() %> <% response.write (NoScript()) if Application(dbName&"enableDBHeader") = 1 then response.write (Application(dbName&"DBHeader")) else ' Copy your original header below this line and above the "end if", ' if you don't want to use Dynamic Header Dim forumABSURL:forumABSURL = Application(dbName&"modifieddir") %>

">"> <%= Application(dbName&"ForumTitle") %> Forums  <%= regDesc %>  <%= loginDesc %>  <%= myProfileDesc %>  <%= PMInbox %>  <%= AddressDesc %>  <%= profLinkToSubscriptionDesc %>  <%= MemberListDesc %>  <%= searchDesc %>  <%= calDesc %>  <%= FAQDesc %>  "><%= contactAdminDesc %>  <%= logoutDesc %> <% end if %> <% end sub %> <% sub footerHTML() %> <% if Application(dbName&"enableDBFooter") = 1 then response.write (Application(dbName&"DBFooter")) else ' Copy your original footer below this line and above the "end if", ' if you don't want to use Dynamic Footer %>

<% end if ' Do not modify below this line. Please do not modify the copyright in anyway and keep it visible ' to everyone visiting your site (please refer to our license agreement). ' If you want to obtain a copyright notice-less license, please contact admin@aspplayground.net for pricing ' information. %> <% if isAdmin then %>

" target="_blank"> " border="0" alt="<%= adminPictureAlt %>">

<% end if %>
<%= timer()-nstart %>
<% end sub %> <% sub iconLegend ' Do not modify this code%> <% Dim yesgif, nogif yesgif = "" nogif = "" %>

" align="absmiddle" vspace=2> <%= newMessageDesc %> " align="absmiddle" vspace=2> <%= oldMessageDesc %> " align="absmiddle" vspace=2> <%= defHotNPost %> " align="absmiddle" vspace=2> <%= defHotPost %> " align="absmiddle" vspace=2> <%= defPostNLocked %> " align="absmiddle" vspace=2> <%= defPostLocked %>

<% if rights >= 3 then response.write yesgif else response.write nogif end if %>  <%= postDesc %> <% if (rights = 2 or rights = 4) then response.write yesgif else response.write nogif end if %>  <%= replyDesc %> <% if allowPoll then response.write yesgif else response.write nogif end if %>  <%= postPollDesc %> <% if allowVote then response.write yesgif else response.write nogif end if %>  <%= tmPollVoteDesc %> <% Dim delThread, delPost delThread = false delPost = false if isAdmin or mode then delThread = true delPost = true elseif allforum(21,appid) = 2 and rights >=2 then delPost = true elseif allforum(21,appid) = 3 then if rights >=3 then delThread = true if rights >= 2 then delPost = true end if if isGuest or rights <=1 then delThread = false delPost = false end if if delPost then response.write yesgif else response.write nogif end if %>  <%= tmPostDelDesc %> <% if delThread then response.write yesgif else response.write nogif end if %>  <%= tmThreadDelDesc %> <% if showRateLink then response.write yesgif else response.write nogif end if %>  <%= tmRateDesc %>

<% end sub %>