Visual Basic in a php file

[big-dog]

How do you put visual basic in a php file? is there any special things you need to do to make it work or can I simply cut and paste right into the file.

Option Compare Database
Public XTrk_Name As String
Public XTrk_Oper As String
Public XTrk_Short_Name As String
Public XTrk_Desc As String
Public XTrk_ID As Long
Public XHome_ID As Long
Public XHomeSet As Boolean

Public Sub SetHomeTrack()

Dim VarX As Variant

VarX = ""

    VarX = DLookup("[Trk_Name]", "Track_Master", "[Trk_Home] = True")
        If Nz([VarX], "") = "" Then
            XTrk_Name = "Points Management System"
            XHomeSet = False
        Else
            XTrk_Name = VarX
            XHomeSet = True
        End If

VarX = ""

        VarX = DLookup("[Trk_Short_Name]", "Track_Master", "[Trk_Home] = True")
            If Nz([VarX], "") = "" Then
                XTrk_Short_Name = "Home Trk Not Setup"
            Else
                XTrk_Short_Name = VarX
            End If
VarX = ""

        VarX = DLookup("[Trk_Oper]", "Track_Master", "[Trk_Home] = True")
            If Nz([VarX], "") = "" Then
                XTrk_Oper = "Home Oper Not Setup"
            Else
                XTrk_Oper = VarX
            End If

VarX = ""
        VarX = DLookup("[Trk_Desc]", "Track_Master", "[Trk_Home] = True")
            If Nz([VarX], "") = "" Then
                XTrk_Desc = "Home Desc Not Setup"
            Else
                XTrk_Desc = VarX
            End If

VarX = ""
        VarX = DLookup("[Trk_ID]", "Track_Master", "[Trk_Home] = True")
            If Nz([VarX], "") = "" Then
                XTrk_ID = 0
                XHome_ID = 0
            Else
                XTrk_ID = VarX
                XHome_ID = VarX
            End If
End Sub

Function ParseTime(InTime, Outtime)
    'Determine The Format

For x = 1 To Len(InTime)
    If Mid(InTime, x, 1) < 0 Or Mid(InTime, x, 1) > 9 Then
        Mid(InTime, x, 1) = ":"
    End If
Next x
Outtime = InTime
End Function
Function IsLoaded(ByVal strFormName As String) As Integer
 ' Returns True if the specified form is open in Form view or Datasheet view.

Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
    If Forms(strFormName).CurrentView <> conDesignView Then
        IsLoaded = True
    End If
End If

End Function
Public Function GetHomeTrack(Track_Data, Get_Data)

Select Case Get_Data

    Case 1
        VarX = ""
        VarX = DLookup("[Trk_Name]", "Track_Master", "[Trk_Home] = True")
                Track_Data = VarX

            If Nz([VarX], "") = "" Then

                If Not IsLoaded("CM_TRK_MASTER_01") Then
                    Msg = "You must setup at least one Track as the Home Track" & Chr(10) & Chr(13)
                    Msg = Msg & "Open the Track Master Control Setup and Select a Home Track"
                    MsgBox Msg
                    Cancel = True
                End If
            Else
                Home_Setup = True
            End If

    Case 2
        VarX = ""
        VarX = DLookup("[Trk_Short_Name]", "Track_Master", "[Trk_Home] = True")
                Track_Data = VarX
    Case 3
        VarX = ""
        VarX = DLookup("[Trk_Oper]", "Track_Master", "[Trk_Home] = True")
                Track_Data = VarX
    Case 4
        VarX = ""
        VarX = DLookup("[Trk_Desc]", "Track_Master", "[Trk_Home] = True")
                Track_Data = VarX
    Case 5
        VarX = ""
        VarX = DLookup("[Trk_ID]", "Track_Master", "[Trk_Home] = True")
                Track_Data = VarX

    End Select
    VarX = ""
End Function

[NogDog]

You certainly cannot just cut and paste it into a PHP file and expect it to be processed as both PHP and VB, if that's what you mean. You would have to either change the VB code into PHP code that does the same thing and run it as PHP, or change the PHP code into VB and run it as a VB program.

If you mean something else, then I'll need further explanation.

[big-dog]

thats what I wanted to know🙂
So how would I change it to php