<% 'Abrimos la conexión Call OpenDB Vtempada = Request.QueryString("tempada") %>

 
 
<%select case Vtempada case ""%> <%case "I"%> <%case "P"%> <%case else%> <%end select%>

Situación
Administración
Laboratorio
Dirección Técnica
Deputación Ourense
Inorde
Bolsa de trabajo
Artículos
La Revista
Direcciones web
Ensayos
Finca Antela
Finca Monterrei
Finca Verin
Finca Nogueira
Estaciones de Control
Metereológica
Termohidrografo
Tensiómetros
Pluviómetros
Cultivos		  
 
 

Ponemos a su disposición una relación de cultivos de cereales realizados por el Instituto del Campo por si fueran de su interés. Estos ensayos y sus resultados estan elaborados con el máximo rigor por técnicos y personal del Intituto del Campo.
LISTADO DE CULTIVOS DE CEREALES REALIZADOS
 
<%filtros%>
<%if Vtempada = "" then Response.Write("")%> <% if Vtempada = "" then Response.Write("") else Response.Write("") end if %> <%crear_taboa_cereais%>
VARIEDAD
GUARDAR
TEMPORADA
96-05.pdf 96-05.zip
ACADEMIE.pdf ACADEMIE.zip
ANZA.pdf ANZA.zip
APACHE.pdf APACHE.zip
BANCAL.pdf BANCAL.zip
BETRES.pdf BETRES.zip
BITACORA.pdf BITACORA.zip
BOLOGNA.pdf BOLOGNA.zip
BONPAIN.pdf BONPAIN.zip
CARTAYA.pdf CARTAYA.zip
COMPARATIVA_INVIERNO.pdf COMPARATIVA_INVIERNO.zip
COMPARATIVA_PRIMAVERA.pdf COMPARATIVA_PRIMAVERA.zip
DO PAIS.pdf DO PAIS.zip
ELASTIC.pdf ELASTIC.zip
FD96013.pdf FD96013.zip
FD97045.pdf FD97045.zip
FD97050.pdf FD97050.zip
LEGIÓN.pdf LEGIÓN.zip
MANDA.pdf MANDA.zip
MARIUS.pdf MARIUS.zip
MATADOR.pdf MATADOR.zip
MILANO.pdf MILANO.zip
ORION.pdf ORION.zip
ORNICAR.pdf ORNICAR.zip
PATANEGRA.pdf PATANEGRA.zip
PERICO.pdf PERICO.zip
RAPOR.pdf RAPOR.zip
S-500-94.pdf S-500-94.zip
SIDERAL.pdf SIDERAL.zip
SIENA.pdf SIENA.zip
SIMBA.pdf SIMBA.zip
SOISSONS.pdf SOISSONS.zip
SWE 93060.pdf SWE 93060.zip
TIGRE.pdf TIGRE.zip

 

La visualización se realiza a traves de ficheros PDF .
Todos los ensayos se han llevado a cabo en las fincas que el Instituto del Campo tiene distribuidadas en las comarcas de la provincia de Ourense.  Fincas de ensayos en las que se realizan durante todo el año trabajos para la maejora y control de la agricultura y ganadería ourensana.
 
 
   
 
 
         
info@institutodocampo.com
INSTITUTO DO CAMPO. RUA DOUS DE MAYO 37. XINZO DE LIMIA. OURENSE
TFNO: 988 46 14 34 FAX 988 55 00 90
© 2003 WEB DEPENDIENTE DEL INORDE
<% Function filtros Select Case Vtempada Case "I" %> Seleccione según la temporada de cultivo:    Todos   Invierno   Primavera   Comparativa<% Case "P" %>Seleccione según la temporada de cultivo:    Todos   Invierno   Primavera   Comparativa<% Case "C" %>Seleccione según la temporada de cultivo:    Todos   Invierno   Primavera   Comparativa<% Case Else %>Seleccione según la temporada de cultivo:    Todos   Invierno   Primavera   Comparativa<% End Select End Function Function crear_taboa_cereais 'Abrimos a taboa cos cereais de inverno Set RS = Server.CreateObject("ADODB.Recordset") if Vtempada = "I" then 'Invierno SQL = "SELECT codigo, nome, tamano_pdf, tamano_zip FROM cereais WHERE tempada = 'Invierno' AND Lcase(left(nome, 11)) <> 'comparativa' ORDER BY nome" elseif Vtempada = "P" then 'Primavera SQL = "SELECT codigo, nome, tamano_pdf, tamano_zip FROM cereais WHERE tempada = 'Primavera' AND Lcase(left(nome, 11)) <> 'comparativa' ORDER BY nome" elseif Vtempada = "C" then 'Comparativa SQL = "SELECT codigo, nome, tamano_pdf, tamano_zip FROM cereais WHERE Lcase(left(nome, 11)) = 'comparativa' ORDER BY nome" else 'Todos SQL = "SELECT codigo, nome, tamano_pdf, tamano_zip, tempada FROM cereais WHERE Lcase(left(nome, 11)) <> 'comparativa' ORDER BY nome" end if RS.Open SQL, conn, 3 if RS.RecordCount = 0 then Response.Write "Non hai rexistros" Response.End end if if Vtempada = "I" OR Vtempada = "P" OR Vtempada = "C" then contador = 1 If RS.RecordCount = 0 then Response.Write("Non hai rexistros

") 'Response.End End If Do while not RS.EOF Response.Write("") Response.Write("  " & RS(1) & "") Response.Write(" " & RS(2) & "") Response.Write("
VER FICHERO PDF") Response.Write("
GUARDAR FICHERO PDF (" & RS(3) & ")") Response.Write("
ENVIAR FICHERO PDF") Response.Write("") RS.MoveNext if RS.EOF then exit do contador = contador + 1 Loop else contador = 1 If RS.RecordCount = 0 then Response.Write("Non hai rexistros

") 'Response.End End If Do while not RS.EOF Response.Write("") Response.Write("  " & RS(1) & "") Response.Write(" " & RS(2) & "") Response.Write("
  " & RS(4) & "") Response.Write("
VER FICHERO PDF") Response.Write("
GUARDAR FICHERO PDF (" & RS(3) & ")") Response.Write("
ENVIAR FICHERO PDF") Response.Write("") RS.MoveNext if RS.EOF then exit do contador = contador + 1 Loop end if RS.Close End Function %>