<%
Function crear_taboa_artigos
'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 artigos 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
%>
