<%@LANGUAGE="VBSCRIPT"%> <% sigla="es" if request("s")<>"" then sigla=left(request("s"), 2) end if scc_actual="" if request("scc")<>"" then scc_actual=request("scc") scc_actual=cdbl(scc_actual) end if %> <% Dim config Dim config_cmd Dim config_numRows Set config_cmd = Server.CreateObject ("ADODB.Command") config_cmd.ActiveConnection = MM_web_STRING config_cmd.CommandText = "SELECT * FROM Idioma WHERE sigla = '"&sigla&"'" config_cmd.Prepared = true Set config = config_cmd.Execute config_numRows = 0 %> <%texto_formulario=(config.Fields.Item("texto_formulario").Value)%> <%=Server.HTMLEncode(config.Fields.Item("title").Value)%> "> "> "> "> " http-equiv="keywords"> "> "> ">
<%noticia1=0%> <% Dim noticias Dim noticias_cmd Dim noticias_numRows Set noticias_cmd = Server.CreateObject ("ADODB.Command") noticias_cmd.ActiveConnection = MM_web_STRING noticias_cmd.CommandText = "SELECT * FROM noticias WHERE activo=1 AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" noticias_cmd.Prepared = true Set noticias = noticias_cmd.Execute noticias_numRows = 0 %> <% If Not noticias.EOF Or Not noticias.BOF Then %>
<%=Server.HTMLEncode(config.Fields.Item("texto_noticias").Value)%>
<%=Server.HTMLEncode(noticias.Fields.Item("titulo").Value)%>
<%=Server.HTMLEncode(noticias.Fields.Item("resumen").Value)%>
<%noticia1=(noticias.Fields.Item("idCont").Value)%> <% End If ' end Not noticias.EOF Or NOT noticias.BOF %> <% noticias.Close() Set noticias = Nothing %> <% Dim noticias2 Dim noticias2_cmd Dim noticias2_numRows Set noticias2_cmd = Server.CreateObject ("ADODB.Command") noticias2_cmd.ActiveConnection = MM_web_STRING noticias2_cmd.CommandText = "SELECT * FROM noticias WHERE activo=1 AND idCont<>"¬icia1&" AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" noticias2_cmd.Prepared = true Set noticias2 = noticias2_cmd.Execute noticias2_numRows = 0 %> <% If Not noticias2.EOF Or Not noticias2.BOF Then %>
<%=Server.HTMLEncode(config.Fields.Item("texto_noticias").Value)%>
<%=Server.HTMLEncode(noticias2.Fields.Item("titulo").Value)%>
<%=Server.HTMLEncode(noticias2.Fields.Item("resumen").Value)%>
<% End If ' end Not blog.EOF Or NOT blog.BOF %> <% noticias2.Close() Set noticias2 = Nothing %> <% Dim blog Dim blog_cmd Dim blog_numRows Set blog_cmd = Server.CreateObject ("ADODB.Command") blog_cmd.ActiveConnection = MM_web_STRING blog_cmd.CommandText = "SELECT * FROM blog WHERE activo=1 AND sigla='"&sigla&"' ORDER BY fechaModifica DESC" blog_cmd.Prepared = true Set blog = blog_cmd.Execute blog_numRows = 0 %> <% If Not blog.EOF Or Not blog.BOF Then %>
<%=Server.HTMLEncode(config.Fields.Item("texto_blog").Value)%>
<%=Server.HTMLEncode(blog.Fields.Item("titulo").Value)%>
<%=Server.HTMLEncode(blog.Fields.Item("resumen").Value)%>
<% End If ' end Not caso_exito.EOF Or NOT caso_exito.BOF %> <% blog.Close() Set blog = Nothing %>
<% config.Close() Set config = Nothing %>