<% 'Copyright 10-4 ApS, this file may only be used if you own a license and have agreed to the license conditions, see http://www.aspfastforum.com/aspfastforum/ for details %> <% dim objRequest, objRs, strEmail, strPassword, strName, strError, blnLoggedOn if Len(cCHARSET)>0 then Response.CharSet = cCHARSET %> <%= STR_LOG_ON_TITLE %>
<%= STR_LOG_ON_TITLE %>
<% if Len(strError)>0 then Response.Write "
" & strError & "
" call LogonForm(strEmail, strPassword) if Application(cLICENSE_ID & "cREGISTER_PAGE")<>"" then Response.Write STR_NOT_REGISTRED1 & " " & STR_NOT_REGISTRED2 & ".
" if Application(cLICENSE_ID & "cSEND_EMAILS") and Application(cLICENSE_ID & "cSEND_LOST_PASSWORD_PAGE")<>"" then Response.Write STR_LOST_PASSWORD1 & " " & STR_LOST_PASSWORD2 & ".
" %>
<% call ConnectionClose() %>