Subroutine act23611
* Note this problem was only on the isapi interface.
* While running the test on the cgi/servlet interface is valid,
* however, the program needs changing to do so.
Include wbp w3Include
CrLf = Char(13) : Char(10)
Call w3GetVal(SessionID,"w3cookie")
cnt = 0
loop
Call w3HTMLInit('','')
Page = "<HTML><HEAD><TITLE>FlashCONNECT Queueing Test</TITLE></HEAD><BODY>" : CrLf
Page := "<P>Pass: ":cnt
Page := 'W3Cookie = ' : SessionID : '<BR>'
Page := CrLf : '<A HREF="fcisapi.dll?w3cookie=' : SessionID : '">Click Here to Debug</A>'
Page := "</BODY></HTML>"
Call w3PrintN(Page);
CRT "w3Input"
Call w3Input(FCError, 0, w3InputTrackPageNumberOff)
If FCError # w3_OK Then
CRT "Error from w3Input"
end
CRT "Waiting at ":cnt:", press x to exit, other to repeat":
input x
until x = "x" do
cnt += 1
repeat
return