The ASP part:
/************************************************/
WebSpeed in ASP Test Page
<%
' Create WebSpeed ASP Object
Set WSAgent = Server.CreateObject("WSASP.WSAgent")
' Configure ServiceName
WSAgent.ServiceName="Dev"
' Populate QueryString with parameters to pass in
' format: "param1=value1¶m2=value2"
WSAgent.QueryString = Request.Form
' Run the Webspeed program
WSAgent.RunScript("/test/asp.p")
' Display the results
Response.Write(WSAgent.Output)
%>
/************************************************/
The .P part:
/************************************************/
DEF VAR i AS INTEGER NO-UNDO.
/* Allow .p File to use {&OUT} and {&DISPLAY} in WebSpeed */ {src/web/method/cgidefs.i}
{&OUT} "WebSpeed values:
" SKIP.
DO i = 1 TO NUM-ENTRIES(GET-VALUE(?)):
{&OUT} ENTRY(i, GET-VALUE(?)) " = " GET-VALUE(ENTRY(i, GET-VALUE(?))) "
":U SKIP.
END.
/************************************************/
A big thanks to Robert J. Mirro for providing the final piece of the puzzle.