%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsNwes__MMColParam
rsNwes__MMColParam = "True"
if (Request("MM_EmptyValue") <> "") then rsNwes__MMColParam = Request("MM_EmptyValue")
%>
<%
Dim rsNwes__MMID
rsNwes__MMID = "0"
if (Request.querystring("NEWS_ID") <> "") then rsNwes__MMID = Request.querystring("NEWS_ID")
%>
<%
set rsNwes = Server.CreateObject("ADODB.Recordset")
rsNwes.ActiveConnection = MM_aopa_STRING
rsNwes.Source = "SELECT NEWS_ID, NEWS_TITLE_EN, NEWS_CONTENT_EN, NEWS_DATE FROM INFOS WHERE NEWS_ACTIVE = " + Replace(rsNwes__MMColParam, "'", "''") + " AND NEWS_ID=" + Replace(rsNwes__MMID, "'", "''") + " ORDER BY NEWS_DATE DESC"
rsNwes.CursorType = 0
rsNwes.CursorLocation = 2
rsNwes.LockType = 3
rsNwes.Open()
rsNwes_numRows = 0
%>
AOPA Hellas INFOS
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Abandon
MM_logoutRedirectPage = "../en/logout.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<% if Session("MM_Username") <> "" then %>
MEMBERS AREA
<% else %>
MEMBERS AREA
<% end if %>
<% if Session("MM_Username") = "" then %>
Username
<% else %>
Sign Out