Re: Server side script problem (General questions)

by Jose, Wednesday, September 08, 2004, 20:46 (7172 days ago) @ wodSupport

Hi thanks, that was quick!

to reproduce the problem is simple. If you have php installed, use the sample for php in the vb samples directory and change the content of hello.php or add a new php file with a script error.

Option Explicit
Dim WithEvents Http1 As wodWebServerCom

Private Sub Form_Load()
Set Http1 = New wodWebServerCom

'On Error Resume Next
Http1.Port = 881
Http1.Start
Http1.DocumentRoot = App.Path
If Err Then
MsgBox There was an error: & Err.Description, vbOKOnly, Error
End If
'ShellExecute vbNull, open , http://localhost:881/phpinfo.php , , , 0
End Sub

Private Sub Http1_CGIStart(ByVal User As WODWEBSERVERCOMLib.IWebUser, ByVal FullPath As String, ByVal Environment As WODWEBSERVERCOMLib.IWebHeaders)
Environment.Add REDIRECT_STATUS , 200
Debug.Print Environment.ToString
End Sub

Private Sub Http1_RequestDone(ByVal User As WODWEBSERVERCOMLib.IWebUser)
User.Response.CGIExecute D:phpphp.exe & User.Request.PageName
User.Response.StatusCode = 200
End Sub

et voila !
Thanks
Jose