Ponemos a
su disposición una breve relación de ensayos 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.
<%
Function crear_taboa_ensaios
'Abrimos la conexión
Call OpenDB
'Abrimos a taboa patacas
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT codigo, nome, tamano_pdf, tamano_zip, observacions FROM ensaios ORDER BY codigo"
RS.Open SQL, conn, 3
if RS.RecordCount = 0 then
Response.Write "Non hai rexistros"
Response.End
end if
contador = 1
Do while not RS.EOF
Response.Write("
")
Response.Write("
" & RS(4) & "
")
Response.Write("
" & RS(2) & "
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
RS.MoveNext
if RS.EOF then exit do
contador = contador + 1
Loop
RS.Close
End Function
%>
