|
Example
ASP:
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=c:\demos.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from customer" , conn
Set Obj = Server.CreateObject("nonnoi_ASPExport2ExcelPack.ASPExport2ExcelPack")
' return HTML Table to browser
Obj.ExportTypeStr="htm"
Obj.ShowExport rs
rs.Close
conn.Close
set rs = nothing
set Obj = nothing
%>
ASP (Registered User):
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; dbq=c:\demos.mdb"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from customer" , conn
Set Obj = Server.CreateObject("nonnoi_ASPExport2ExcelPack.ASPExport2ExcelPack")
Obj.RegisterName = "Nonnoi"
Obj.RegisterKey = "0123456-789"
' return XML to browser
Obj.ExportTypeStr="xml"
Obj.ShowExport rs
rs.Close
conn.Close
set rs = nothing
set Obj = nothing
%>
| 
