<script language="VB" runat="server">
Sub Page_Load(Src As Object, E As EventArgs)
Dim SP As New Tornado.z
With SP
.dbQP = "Unit=1|S=7|Pagesize=-1|NavigationItem=None|Th=ti=Simple SP|Pv=OleDB|Dt=SQL"
.dbDSN = "fujitsu;pubs;sa;sa"
.dbStoredProc = "spname=reptq1" '... Add dbResultSet = n to get the 'n' result set
.ASPdbSP() '...use .ASPdbSP("getall=true") to get all result sets
.dbQP = "Unit=2|S=7|Pagesize=-1|NavigationItem=None|Th=ti=Simple SP - Get All|Pv=OleDB|Dt=SQL"
.dbDSN = "fujitsu;pubs;sa;sa"
.dbStoredProc = "spname=reptq1"
.ASPdbSP("Getall=true")
End With
End Sub
</script> |