Dim sivCmd, SIVRs

    Set sivCmd = Server.CreateObject("SIVLib.sivConnect")

    sivCmd.ConnString = GOAT_CONNSTRING

    sivCmd.setCommand "sp_sel_coursedatebycouno"
    sivCmd.setParameter paramInteger, "@couno", VehicleJourneyID
    Set SIVRs = sivCmd.openCommand()
    Set sivCmd = Nothing