Sub SpUpdateTblPOD 'SQL 2000 SERVER
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_tblpod"
cmd.Parameters = Array As Object(intPodID, strReceivedBy, strReceivedDate)
reqManager.ExecuteCommand(cmd, "UpdateTblPOD")
End Sub
Sub SpUpdateTblRDPOD 'SQL2008 SERVER
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "update_tblrdpod"
cmd.Parameters = Array As Object(intPodID, strReceivedBy, strReceivedDate)
reqManager2.ExecuteCommand(cmd, "UpdateTblRDPOD")
End Sub