<%@ LANGUAGE="VBSCRIPT" %> WSASP Messenger Example Page

SportsPro Sales Rep Performance

<% '-- Is this our first time here? If IsEmpty(Session("ExampleAgent")) Then '-- Create our WebSpeed Agent Set SalesReport = Server.CreateObject("WSASP.WSAgent") '-- Set the WService to connect SalesReport.ServiceName = "wsbroker1" '-- Don't overload user with data SalesReport.QueryString = "ResultRows=25" Else Set SalesReport = Session("ExampleAgent") End If '-- Call our WebSpeed Script SalesReport.RunScript "/src/web/examples/aspexp.p" Response.Write SalesReport.Output '-- Save our Agent object since we will probably be back here Set Session("ExampleAgent") = SalesReport %>