<%do while not rsNavigation.eof Page_Type=rsNavigation("Page_Type") if Page_Type=2 then rslateststring="SELECT videogallery.*, videogallery.Category FROM videogallery order by createddate" Set rslatestvideo = Server.CreateObject("ADODB.Recordset") rslatestvideo.ActiveConnection = con_string rslatestvideo.Source =rslateststring rslatestvideo.CursorType = 0 rslatestvideo.CursorLocation = 2 rslatestvideo.LockType = 1 rslatestvideo.Open() if not rslatestvideo.eof then pageurl="Galeriavideos.asp?flvnmxvd="&rslatestvideo("Flv_File_Name")&"&title="&rslatestvideo("title")&"&description="&rslatestvideo("description")&"&id="&rsNavigation("id")&"&lang="&lang else pageurl="Galeriavideos.asp?id="&rsNavigation("id")&"&lang="&lang end if end if if Page_Type=3 then pageurl="Galeriafotos.asp?id="&rsNavigation("id")& "&lang="&lang&"" end if if Page_Type=4 then pageurl="Noticias.asp?id="&rsNavigation("id")& "&lang="&lang&"" end if if Page_Type=1 or isnull(page_type) then pageurl="curriculos.asp?id="&rsNavigation("id")& "&lang="&lang&"" end if %>
• " style="direction:<%=direction%>" align="<%=alignment%>"><%=rsNavigation("navigation_name")%>
<% rsNavigation.movenext loop set rsNavigation=nothing %>

<%=Website_Consultants%>: