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>"
%>
