<% option Explicit %> <% IdiomaPag = "es" Dim objCn 'conecto la DB cuando haga falta Dim objRs Set objRs = Server.CreateObject ("ADODB.Recordset") Call ConectarDb Dim strSQL strSQL = "" Dim strSQLW Dim strQAnio strQAnio = Cstr(Trim(Replace(Request("y"),"'", ""))) if not isNumeric(strQAnio) or strQAnio="" then strSQL = "SELECT Max(Anio) AS AnioMax FROM tPremios" objRs.Open strSQL, objCn if not objRs.EOF then strQAnio = objRs("AnioMax") else strQAnio = Year(Now) end if objRs.Close end if %> Hacienda Iber · Premios
Agriculture
Oil Mill
Our Oils
Awards
Visit Us
Agenda
Certifications
Contacts
  International awards.
<% strSQL = "SELECT DISTINCT Anio FROM tPremios ORDER BY Anio " objRs.Open strSQL, objCn if not objRs.EOF then %>

<%Do While not objRs.EOF%> <%if strComp(objRs("Anio"), strQAnio)=0 then%> <%=objRs("Anio")%> <%else%> " style="text-decoration: none;" onMouseOver="this.style.color='CC0033';" onMouseOut="this.style.color='';"><%=objRs("Anio")%> <%end if%>          <% objRs.MoveNext Loop %> <% end if objRs.Close %>

  AWARDS <%=strQAnio%>

In its first year of production, our awards have been very gratificantes and encouraging for us on having ratified the quality of our oils and the guessed right image of our packages. We can stand out:

<% strSQL = "SELECT tPremios.*, tPaisesIdiomas.Pais FROM tPremios " & _ " INNER JOIN (tPaises INNER JOIN tPaisesIdiomas ON tPaisesIdiomas.PaisCod=tPaises.PaisCod) " & _ " ON tPaises.PaisCod=tPremios.PaisCod " & _ " WHERE tPaisesIdiomas.IdiomaCod='" & IdiomaPag & "' AND tPremios.isActivo=1" if strQAnio<>"" then strSQLW = strSQLW & " AND Anio=" & strQAnio end if strSQL = strSQL & strSQLW & " ORDER BY Orden DESC" objRs.Open strSQL, objCn if not objRs.EOF then Do While not objRs.EOF %>
<%if objRs("Imagen")<>"" then%>" width="137"><%else%><%end if%> <%=objRs("Premio")%>
<%=objRs("Descripcion")%> - <%=objRs("Galardon")%> (<%=objRs("Pais")%>)



<% objRs.MoveNext Loop end if objRs.Close %>
Hacienda Iber © 2008