<%
z_other_lang=""
z_this_page="ipaq.asp" 'The name of this page
z_about="page.asp" 'Name of normal pages of the same type
menus=0
page_sel=request("pg_sel")
menu_sel=request("mnu_sel")
body_director=""
IF LEN(page_sel) = 0 then
under_main=left(menu_sel,2)
under_sub=left(menu_sel,3)
ELSE
under_main=left(page_sel,2)
under_sub=left(page_sel,3)
END IF
IF LEN(menu_sel) > 0 then
under_main=left(menu_sel,2)
under_sub=left(menu_sel,3)
ELSE
under_main=left(page_sel,2)
under_sub=left(page_sel,3)
name_of_page="HOME"
END IF
' We start by opening all DataBases and create reccordsets so that all reccordsets are executed when
' the loads (for speed).
' Please note that all reccordsets are opened as forwardonly and can only be used "once"
set oConn=Server.CreateObject("ADODB.Connection")
'oConn.Provider ="MSDASQL"
oConn.open "FILEDSN=IPAQ.dsn;UID=;Password=;"
' Get data for current page
' PAGE_INFO.INC
IF page_sel <> "None" THEN
' First part of SQL-String
sql_lang="SELECT * FROM IPAQ_MENU WHERE ((IPAQ_MENU.Show = 1 )) AND ((IPAQ_MENU.Under_menu = '" & "TOP" & "'))"
if session("securitylevel")>0 then
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER >= 0)) "
else
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER = 0)) "
end if
If LEN (under_main) > 0 then
sql_lang = sql_lang & " OR ((IPAQ_MENU.Under_menu = '" & under_main & "')) AND (IPAQ_MENU.Show = 1 )"
end if
if session("securitylevel")>0 then
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER >= 0)) "
else
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER = 0)) "
end if
If LEN (under_sub) > 0 then
sql_lang = sql_lang & " OR ((IPAQ_MENU.Under_menu = '" & under_sub & "')) AND (IPAQ_MENU.Show = 1 )"
end if
if session("securitylevel")>0 then
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER >= 0)) "
else
sql_lang=sql_lang & " AND ((IPAQ_MENU.MEMBER = 0)) "
end if
END IF
sql_lang=sql_lang & " ORDER BY IPAQ_MENU.Page_indx ;"
' set LGRs=oConn.execute(sql_lang,,adOpenForwardOnly)
set LGRs=oConn.execute(sql_lang,,adOpenForwardOnly)
SQL_Page= "SELECT * FROM IPAQ_Pages WHERE ((IPAQ_Pages.Show = 1 )) AND ((IPAQ_Pages.Page_indx = '" & Menu_sel & "'))"
set PageRs=oConn.execute(SQL_Page,,adOpenForwardOnly)
SQL_menu= "SELECT * FROM IPAQ_Menu WHERE ((IPAQ_Menu.Show = 1 )) AND ((IPAQ_Menu.Under_menu = '" & Menu_sel & "'))"
set MenuRs=oConn.execute(SQL_menu,,adOpenForwardOnly)
' Returnerar Länkar i variabeln z_other_lang
' PAGE_INFO.INC
'sql_PGsel="SELECT WEB_Pages.Page_ID,WEB_Pages.Under_menu,WEB_Pages.Lang,WEB_Pages.Type_of_page, WEB_Pages.Page_group FROM WEB_pages WHERE (((WEB_Pages.Page_ID)<>" & page_sel & ") AND ((WEB_Pages.Page_group)=(SELECT [Page_Group] FROM [WEB_Pages] WHERE [Page_ID]=" & page_sel & ")))"
'set PGRs=oConn.execute(sql_PGsel)
'%>
IPAQ -International Physical Activity Questionnaire
Contact us @ IPAQ
<% ' Menu start %>
<%
' Loop selected
do while not LGRs.EOF
Main_menu=LGRs("menu_text")
' Sub_menu=LGRs("sub_menu")
Menu_text=LGRs("menu_text")
PG_Type=LGRs("Type_of_page")
page_id=LGRs("Page_indx")
' If type of page is page ie. not a menu then set page_sel
pg_sel=page_sel
z_class="P"
space_me=0
' If menu
IF left(PG_type,1)="M" Then
z_Class ="mm"
plupp=" "
' menu_text_page=menu_text
' if left(menu_sel,2)=page_id then
' plupp=""
' end if
End if
IF left(PG_type,1)="S" Then
z_Class ="sm"
' pg_sel=page_id
plupp=""
End if
IF left(PG_type,1)="P" Then
z_Class ="p"
pg_sel=page_id
plupp=" "
End if
if menu_sel=page_id then
plupp=""
space_me=1
type_of_page=left(PG_type,1)
name_of_page=PG_type
menu_text_page=Menu_text
this_page=page_id
'else
' if menu_sel=page_id then
' plupp=""
' end if
end if
%>
<%
select case name_of_page
case "Page" %>
<%
case "HOME" %>
<%
case "Mmenu" %>
<%
case "Smenu" %>
<%
case else
end select
if menu_sel="ZZ" then
%>
<%
end if
%>
"
' end if
End if
IF left(PG_type,1)="S" Then
z_Class ="sm"
' pg_sel=page_id
plupp=""
End if
IF left(PG_type,1)="P" Then
z_Class ="p"
pg_sel=page_id
plupp=" "
End if
if menu_sel=page_id then
plupp="