Código HTML:
<%@ Language=VBscript%> <!--#include file="fpdf.asp"--> <!--#include file="conn.asp"--><% sql= "SELECT RUT_USUARIO AS rut FROM ADM_USUARIO where id_usuario = '1'" set recDatos = conn.execute(sql) if not ( recDatos.EOF ) then dim intdato rut = recDatos("rut") intdato = recDatos.GetRows recDatos.Close set recDatos = nothing conn.close 'Creación del documento PDF Set pdf = CreateJsObject("FPDF") pdf.CreatePDF "P","pt","Letter" pdf.SetPath("fpdf/") pdf.SetFont "Arial","",16 pdf.Open() pdf.AddPage() pdf.Cell 100, 100, "Prueba de creación de PDF's on-line" alto = 25 cY = 150 'lo limito solo a 10 debido a que no he programado aún el cambio de página 'for j = 0 to ubound(tblUsuario,2) pdf.Cell 100, intdato("rut") pdf.Output() pdf.Close() else response.write "No se encontraron usuarios disponibles" end if%>
Código HTML:
Error de Microsoft VBScript en tiempo de ejecución error '800a0009' El subíndice está fuera del intervalo /home/prueba.asp, line 26