<%@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

<% end if %>
Greek Version
 
HOME ABOUT US F.A.Q. LINKS CONTACT US
 
<% if Session("MM_Username") = "" then %> <% end if %>
Events
News
Information
Correspondence

Newsletter from AOPA Hellas
If you don't want to become a member but you are interesting about AOPA Hellas news please register

 

 

 

 

 

 

 

 

Pilot Information AOPA Hellas

Icarus Expo - Last Update - <%=(rsNwes.Fields.Item("NEWS_DATE").Value)%>

Location | Visitors | Events | Exhibitors | Flying In | Travel Info | Sponsors | Contact

<%=(rsNwes.Fields.Item("NEWS_CONTENT_EN").Value)%>

© aopa.gr 2004
<% rsNwes.Close() %>