Dim Cn,Rs,Rp,App
Set Conn=Server.Createobject("ADODB.Connection")
conn.open ("myoffice")
set rs = server.createobject("adodb.recordset")
rs.activeconnection=conn
rs.open "select rid, rname from resource"
Set App = Server.CreateObject("CrystalRuntime.Application")
set rp = app.newreport
rp.sections(1).suppress = true
rp.sections(2).height=2000
set fd=rp.sections(2).addtextobject("ГТВ§Т№",3000,1000)
fd.width = 5000 : fd.height=500
fd.font.name="AngsanaUPC"
fd.font.size=18
Load balance : Server 02
