PDF

PDF filen er helt blank

Hvad gør jeg forkert her?

<%
Dim objXmlHttp
Dim strHTML, list, p1, data, minidata, i, rens, t
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
Set Pdf = Server.CreateObject("Persits.Pdf")

Set Doc = Pdf.CreateDocument
Doc.Title = "Telefon liste"
Doc.Creator = "Xing"

Set Page = Doc.Pages.Add

Set Font = Doc.Fonts("Helvetica")

Set Table = Doc.CreateTable( "width=400; height=400; rows=40; cols=3; border=1; cellborder=1; cellspacing=2")

for i = 1 to 20
    Table(i, 1).AddText "Test", "size=40; expand=true", Font           
next

Page.Canvas.DrawTable Table, "x=40, y=40"

Filename = Doc.Save( Server.MapPath("liste15.pdf"), False )
Response.Write "Klik her<A HREF=liste15.pdf>here</A>"


%>