sWriteBuffer = "HTTP/1.0 200 OK" & vbCrLf & "Content-Type: text/html" & _
vbCrLf & vbCrLf & "<HTML><body><pre><p>"
hStdOut = stdout()
WriteFile hStdOut, sWriteBuffer, Len(sWriteBuffer) + 1, lBytesWritten
sReadBuffer = String$(CLng(Environ$(CGI_CONTENT_LENGTH)), 0)
' Get STDIN handle
hStdIn = stdin()
' Read client's input
ReadFile hStdIn, sReadBuffer, Len(sReadBuffer), lBytesRead
' Find '=' in the name/value pair and parse the buffer
r = Split(sReadBuffer, "=")
t = r(1)
' Find '&' in the name/value pair and parse the buffer
rw = Split(t, Chr(38))
path = rw(0)
SearchStr = r(2)
Call FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
' Construct and send response to the client
sWriteBuffer2 = "</HTML></body></pre><p>"
hStdOut = stdout()
WriteFile hStdOut, sWriteBuffer2, Len(sWriteBuffer2) + 1, lBytesWritten
FindFileAPI is a function that parse the directory I typed in and ouput the files with the extension I typed in. but instead. the output is just
<HTML><body><pre><p> </HTML></body></pre><p>
the function doesn't seems to be activating. is it
Call .... to go to that function?
Thanks in advance
