<% option Explicit %> <% IdiomaPag = "de" 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 · Auszeichnungen
Ackerbau
Olmühle
Unsere Öle
Prämien
Besuchen Sie Uns
Terminkalender
Bescheinigungen
Kontakt
  International Ausgezeichnet
<% 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 %>

  PRÄMIEN <%=strQAnio%>

In unser erstes Produktionsjahr, unseren Öle haben verschiedenen internationalen Auszeichnungen bekommen. Diese Annerkennungen haben uns ermütigt sowie die Qualität unsere Produkte und das zutreffendes Aussehen der Behälter bestätigt. Einigen der Auszeichnungen sind:


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