<% Option Explicit %> <% Dim link, id, k Dim SQL, RS_Menu, RS_Sub, RS_Language Dim StartPage StartPage = Request.QueryString("id") ' Response.Write(StartPage) k = 15 SQL = "SELECT " & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_name, " & TBL_PREFIX & "_menu.fld_id, " & TBL_PREFIX & "_menu.fld_sub " &_ "FROM " & TBL_PREFIX & "_menu INNER JOIN " & TBL_PREFIX & "_menu_" & session("LANGUAGE") &_ " ON " & TBL_PREFIX & "_menu.fld_id = " & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_menu_id " &_ "WHERE (((" & TBL_PREFIX & "_menu.fld_sub_id)=0)) " &_ "AND (((" & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_active)=1))" &_ "ORDER BY " & TBL_PREFIX & "_menu.fld_sort, " & TBL_PREFIX & "_menu.fld_id;" Set RS_Menu = Conn.Execute(SQL) %> <% SQL = "SELECT * FROM " & TBL_PREFIX & "_language WHERE fld_active = 1 ORDER BY fld_id ASC;" Set RS_Language = Server.CreateObject("ADODB.Recordset") RS_Language.Open SQL, Conn, 3, 1 Do Until RS_Language.EOF If RS_Language("fld_language") = session("LANGUAGE") Then %> ');">_on.gif" width="20" height="13" alt="" style="position:absolute;left:<%= k %>px;top:80px"> <% Else %> ');">_off.gif" width="20" height="13" alt="" style="position:absolute;left:<%= k %>px;top:80px"> <% End If k = k + 32 RS_Language.MoveNext Loop RS_Language.Close: Set RS_Language = Nothing Do Until RS_Menu.EOF id = RS_Menu("fld_id") link = RS_Menu("fld_name") If RS_Menu("fld_sub") = 1 Then SQL = "SELECT " & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_name, " & TBL_PREFIX & "_menu.fld_id " &_ "FROM " & TBL_PREFIX & "_menu INNER JOIN " & TBL_PREFIX & "_menu_" & session("LANGUAGE") &_ " ON " & TBL_PREFIX & "_menu.fld_id = " & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_menu_id " &_ "WHERE (((" & TBL_PREFIX & "_menu.fld_sub_id)=" & id & ")) " &_ "AND (((" & TBL_PREFIX & "_menu_" & session("LANGUAGE") & ".fld_active)=1))" &_ "ORDER BY " & TBL_PREFIX & "_menu.fld_sort, " & TBL_PREFIX & "_menu.fld_id;" Set RS_Sub = Conn.Execute(SQL) %>
" style="display:none"> <% If NOT RS_Sub.EOF Then Do Until RS_Sub.EOF %> " target="main"> <% RS_Sub.MoveNext Loop End If RS_Sub.Close: Set RS_Sub = Nothing %>
<% Else %> <% End If RS_Menu.MoveNext Loop RS_Menu.Close: Set RS_Menu = Nothing %> ', 1100, 600)"> <% Conn.Close: Set Conn = Nothing %>