<%@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)%> <% Dim galeria Dim galeria_cmd Dim galeria_numRows Set galeria_cmd = Server.CreateObject ("ADODB.Command") galeria_cmd.ActiveConnection = MM_web_STRING galeria_cmd.CommandText = "SELECT * FROM galeria_portada WHERE activo = 1 AND sigla='"&sigla&"' ORDER BY orden ASC" galeria_cmd.Prepared = true Set galeria = galeria_cmd.Execute galeria_numRows = 0 %> <% Dim galeria_ico Dim galeria_ico_cmd Dim galeria_ico_numRows Set galeria_ico_cmd = Server.CreateObject ("ADODB.Command") galeria_ico_cmd.ActiveConnection = MM_web_STRING galeria_ico_cmd.CommandText = "SELECT * FROM galeria_portada WHERE activo = 1 AND sigla='"&sigla&"' ORDER BY orden ASC" galeria_ico_cmd.Prepared = true Set galeria_ico = galeria_ico_cmd.Execute galeria_ico_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 galeria_numRows = galeria_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 galeria_ico_numRows = galeria_ico_numRows + Repeat2__numRows %> <%=Server.HTMLEncode(config.Fields.Item("title").Value)%> "> "> "> "> " http-equiv="keywords"> "> "> "> <% If Not galeria.EOF Or Not galeria.BOF Then %>
    <% While ((Repeat1__numRows <> 0) AND (NOT galeria.EOF)) %>
  • " alt="<%=(galeria.Fields.Item("titulo_gal").Value)%>" name="wows1_0" width="960" height="345" id="wows1_0" title="<%=(galeria.Fields.Item("titulo_gal").Value)%>"/>
    • <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 galeria.MoveNext() Wend %>
<% While ((Repeat2__numRows <> 0) AND (NOT galeria_ico.EOF)) %> "> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 galeria_ico.MoveNext() Wend %>
<% End If ' end Not galeria.EOF Or NOT galeria.BOF %> <% galeria.Close() Set galeria = Nothing %> <% config.Close() Set config = Nothing %>