pdf

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,"Hello Word!"
pdf.Close()
pdf.Output()
%>

<%=str_users_name%>

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10,"[COLOR="Red"]<%=str_users_name%>[/COLOR]"
pdf.Close()
pdf.Output()
%>

<%
Dim rs
Set rs=Server.CreateObject("ADODB.Connection")
rs.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("mdb-database/utenti.mdb")
%>

<%@language=vbscript%>
[B]<!--#include file="connessione_pdf.asp" -->[/B]
<!--#include file="fpdf.asp"-->
<%
[B]code=Request.QueryString("code")
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM tbl_Authors WHERE code='" & str_code & "'"
rs.Open SQL, objConn
'Dim i,pdf[/B]

 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10, [B]"nome: " & RS("str_users_name")[/B]
pdf.Close()
pdf.Output()
[B]rs.close
objConn.close[/B]
%>

Tipo di errore:
ADODB.Recordset (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/area_riservata/pdf.asp, line 8

rs.Open SQL, objConn

<%@language=vbscript%>
<!--#include file="fpdf.asp"-->
<%
code=Request.QueryString("code")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
          DSNtemp=dsntemp & "DBQ=" & server.mappath("utenti.mdb")
          sqlstmt = "SELECT * FROM tbl_Authors ORDER BY code DESC"
          Set rs = Server.CreateObject("ADODB.Recordset")
          rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
Dim str_name
name = rs("name")
 
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
pdf.AddPage()
pdf.Cell 40,10, "nome: " & RS("name")
pdf.Close()
pdf.Output()
%>