<% 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 · Les recompenses
Agriculture
Moulin a huile
Notre Huile
Les Recompenses
Venez Nous Voir
Agenda
Certifications
Contact
  Récompenses internationales
<% 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 %>

  LES RECOMPENSES  <%=strQAnio%>

En ce qui concerne les récompenses, dans sa première année de production nos récompenses ont été très gratifiantes et porteuses d'espoirs pour nous en ratifiant la qualité de nos huiles et l'image affirmée de nos emballages. Nous pouvons faire ressortir:


<% 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