<% 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
Agricultura
Almazara
Nuestros Aceites
Premios
Visitenos
Agenda
Certificaciones
Contacto
  Galardonados internacionalmente
<% 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 %>

  PREMIOS <%=strQAnio%>

En cuanto a premios, y en su primer año de producción, nuestros galardones han sido muy gratificantes y esperanzadores para nosotros al ratificarnos la calidad de nuestros aceites y la acertada imagen de nuestros envases. Podemos destacar:

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